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ASTEROIDES 


10 REM ***** ASTEROIDES ******* 

20 REM * ANGEL GARCIA DELGADO * 

30 REM ******** G.T.S. ******** 

40 REM 
50 MODE O 

60 INK O,O:INK 1,26:1NK 2,7:1NK 3,1tí 

70 PAPER O:BORDER O 

80 ORIGIIM 318,210 

90 POR a-0 TO 2*PI STEP PI/70 

100 PLÜT 0,0,2 

110 DRAW 300*COS(a),150*SIN(a) 

120 DRAWR O,30*SlN(a) ,3 
130 NEXT a 

140 PRINT CHR*(22)+CHRÍ(1); 

150 LOCATE 6,12 

160 PRINT "ASTEROIDES" 

170 PRINT CHR*(22)+CHR$<0); 

180 INK 2,7,O:INK 3,0,18 

190 POR a-1 TO 300:SÜUND i,a,1,15:NEXT a 

200 INK 2,18,7:1NK 3,7,18 

210 POR a-300 TO 1 STEP -2:S0UND l,a,l:SOUND 2,a*2,l:NEXT a 

220 INK 2,7:1NK 3,18 

230 POR a-1 TO 500:NEXT a 

240 POR a-0 TO 50:PRINT CHR$(7):P0R b=l TO 50:NEXT b:NEXT a 
250 MODE J 
260 GOTO 310 

270 PRINT TAB(20-LEN(aí)/2) :FOR a=l TO LEN(aT) 

280 bí—MID$(aT,a,i) :PRINT b$;:IF b$<>" " THEN PRINT CHRÍ(7); 
290 NEXT a 

300 PRINT:PRINT:FOR a=l TO 200:NEXT a:RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 A*="« ASTEROIDES »" :GOSUB 270 

330 PRINI :A$="RECOGE LOS BIDONES DE COMBUSTIBLE":GOSUB 270 
340 Aí="EVITANDO SER ALCANZADO POR LOS":GOSUB 270 
350 Aí="ASTEROIDES":GÜSUB 270 
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360 PRI NT : AT= " CONTROLES : " : GÜSUB 270 : AT= " CURSOR <. IZQUIERDA" :GUSU 

B 270 :AT="CURSOR >. DERECHA" :GÜSUB 270 

370 PR1NT :AT="PULSA --S- PARA EMPEZAR" : GÜSUB 270 

380 IF INKE'Y (60) < >0 THEN 380 

390 GÜSUB 600 

400 INl< 0,0 sBURDER 0:ÍNK 1,26 

410 1NK 2,20:1NK 3,6 

420 INK 4,2 

430 iNK 5,24 

440 MUDE O 

450 WINDÜW #1 ,1 ,20,1 ,3¡PAPER #1,4:PEN #1,2 
460 CLS #1sWINDÜW 1,20,5,25 
470 P= 0 ;GQSUB 590 
480 Y==10 

490 11- NüT iNKEY < 8) THEN Y-Y-l : IF Y< 1 THEN Y = 1 
500 IF NÜT INKEY(l) THEN Y=Y+i:IF Y>20 THEN Y-20 
510 IF RND>0.9 THEN PEN 5:AT="c" ELSE aT="b”:PEN 3 
520 LOCATE 1 +1NT í RIMO* 19) , 1 :PRINT aí ; CHRT ( 11 ) 

530 LOCA TE Y ,21 :CALL 30000 : C-F'EEK (29999) 

540 PEN 2 

550 LOCATE Y ,21:PRINT"a "5 


560 

¿F C—98 T HEN 1 OCATE Y . 1 «Pfi T NT " H " » RflTfl 7/'iñ 

570 

IF 0=99 THEN SOUND 1 ,50,15,15,0,1:P 
GOTO 490 

-P+5:GÜSUB 590 

580 


590 

600 

LOCATE #1,4,2:PRINT#1,"PUNTOS. . . " ; P 
REM #* CODE SCREENT ## 

¡RETURN 


61O DATA 205,96,187,50,47,117,201 


620 

630 

RES I"ORI 

c 6 J. 0 









POR a=; 
SYMBOL 

30000 TU 30006: 

: RE A Ei b: 

PÜKE a ,1 

b : NEX'I 


a 





6 A- 0 

A ETER 97 










*_■) !j (_) 

66 ü 
6/0 
680 

b 1 ílbUL 
SYMBOL 
SYMBOL 
SYMBOL 

9 7 , 66 ,1 .i. 9,153 , 
98,12,62,127,1 
ou 1 oz. l . l . 

, 189,231 
26,255, 

1 O O 

, 189,151 

3,129 








255,94 ,! 
126,114 

i ')ü n¿\ 

56 

ir trr 








' i ■*- - 9 x 9 CJO i JL X-LJ , TO , 

1 O O _ 1 A AH n 1 '4 “7 o 








690 

RETURN 

- - - 

' ' 1 1 ' 1 

1 bU y UT - 








700 

REM ** 

* GAME OVER *** 










710 

POR A= 

1 TU 20:POR B=1 

.00 Tü 2 

O O ST EP 

A : SOUNI 

I' 1 . B , 

1 , 

.15.0.0 . 

31 :N 



EXT BsNEXT A 

?20 INK O ,0:1NK 1,26:1NK 2,15,0:PAPER O s BORDER O S REN 1 :MÜDE O 
730 PEN 2: LOCATE 6,7:PRINT"GAME OVER" 

740 PEN 1 :LOCA TE 4,12:PRINT"PUNTOS:";USING "######";P 
750 PEN 3 :1NK 3,15:LOCATE 5,17:PRINT "OTRA? (8/N)" 

760 POR A=1 Tü 50 : Aí = I NKE Y í-: NE X T A 
770 PEN 1 

780 IF INKEY(60)=0 THEN RUN 250 
790 IF INKEY(46)=0 THEN CALL O 
300 GOTO 780 
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SIMON 


1 MODE O:INK 0,0:PAPER O:BORDER OsINK 5,26:GOSUB ÍOOO 

10 ORIGIN 320,200 

20 FOR a=0 Tü Pl/2 STEP PI/150 

30 c-COS(a)* 100:s=SIN(a)* 100 

40 PLOT 10,6,2:DRAWR c,s 

50 PLOT -10,6,1:DRAWR -c , s 

60 PLÜT -10,-6,3:DRAWR -c,-s 
70 PLOT 10,-6,4:DRAWR c,-s 
80 NEXT a 

85 FOR A-O 10 2*PI STEP Pl/30 

86 MÜVE 130* (C0S(A-PÍ/30) ) , 120* (SIN (A-F'I/30) ) ,6:DRAW J3O*C0S(A),l 
20*S1N(A) 

87 NEXT A 

90 PEN 5 :PRINT CHRÍ(22) ;CHEÍ(1) 

100 LOCATE 9,10 :PRINT"1 2" :LOCATE 9,16 :PRINT"3 4" 

110 PRI NT CHR$ (22) ; CHRí (O) 

120 C$="" 

200 A$="ATENTO EMPEZAMOS":GOSUB 1100 
210 C$=C*+CHR$(49+INT(RND*4)) 

220 FOR B=1 TO LEN (Cí) :A$=M1D$ (Cí ,B , 1) :GOSUB 2000:FOR Y=1 Tü lOO; 
NEXT Y 
225 NEXT B 

230 AÍ-"ES TU TURNO" :GÜSUB 1100 

240 FOR D=1 Tü LEN(Cí) :A$=MIDí(C$,D , 1) 

250 R$="" 

260 IF NOT INKEY(64) THEN Ri="l" 

270 1F NOT l'NKEY (65) THEN R$="2" 

280 IF NOT INKEY(57) THEN Ri="3" 

290 IF NOT INKEY(56) THEN Ri="4" 

300 IF E$="" THEN 260 

310 IF R"f-AT THEN GOSUB 2000 ELSE 60000 
320 NEXT D 

330 A$—"MUY BIEN":GOSUB 1100:A$="AHORA OTRA MAS":GOSUB 1100 
340 GOTO 210 

1000 PEN 6,1:1NK 1,3:1NK 2,9:1NK 3,12:1NK 4,10 
1010 RETURN 

1100 PEN 5 : PEI NT CHRÍ(22) ;CHRÍ(0) : LOCATE 10-LEN(Ai)/2,1:PRINT Ai; 
:FOR W-l TO 1000:NEXT W:LOCATE 1,1:PRINT" "• 

1110 RETURN 

2000 ENT 1 ,5 , -1,1,5,1 ,1,10,0,1:1F Af ="1" THEN INK 1,15: SOUND 1,75 
,20,15,0,1:GOTO 2100 

2010 IF A#="2" THEN INK 2,18:S0UND 1 ,125,20,15,0,1¡GOTO 2100 

2020 IF A*="3" THEN INK 3,24:SOUND 1,175,20,15,O,1:GOTO 2100 

2030 IF Aí-"4" THEN INK 4,20:SOUND 1,225,20,15,0,1:GOTO 2100 

2040 RETURN 

2100 FOR X-l Tü 200:NEXT X :GÜTO 1000 
60000 END 
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GUSANIN 


10 INK 1,24:1NK O ,1:1NK 2 ,20:1NK 3,6 
20 RANDOMIZE TIMEsCALL &BB03 
30 GÜSUB 790 
40 GÜSUB 650 
50 CLS:GOTD 410 

60 IF INT(RND#100)>98 AMD fg = l THEM GÜSUB 300 
70 IF fg=0 THEN cdlfcou-1:IF colfO THEN GÜSUB 290 

80 IF wi< 1 THEN SOUND 131 ,0,50,7 ,0 ,0,3 :-f red-RF.MA 1N (l) : vidas-vidas 
-1 : IF vidas>0 THEN 540 ELSE GOTO 320 

90 LOCATE a , b : PEN 1 :PRINT CHRí (24Ó) :PR1NT CHR* (22) ;CHR* (1) : LOCATE 
a , b : PEN 3 : F'R I NT CHR$ (241) : PEN 1 : PRI NT CHRí (22) ; CHRÍ (O) 

100 IF e>0 THEN LOCATE c<e) ,d<e) :PRINT" " 

110 IF•e >180 THEN e=0 
120 e=e+l 

130 IF f >180 THEN f=0 
140 f=f + 1 :c (f ) =a :d < + ) =b 

150 $=UPPER$ < INKE Y $) : IF x $= " " THE» x $=z $ 

160 IF x*-l$ THEN t-FN t1:z$=l$:a=a-l:GOTÜ 210 

170 IF x$=r$ THEN t-FN tr :z$=rf :a=a+l :GOTO 210 

180 IF xí=ui THEN t=FN tu :z$=uí :b=b-l ¡GOTO 210 

190 IF x$=d* THEN t-FN td :zí=ds :b=b + l ¡GOTO 210 

200 GOTO 60 

210 IF t=0 GOTO 60 ELSE ON t GOSUB 230,250,270 
220 ON ff GOTO 540,320,60 

230 IF t = l THEN fgl=0:S0UND 4,0,10,5 ,0 ,0 ,8 :FüR n=l TO 3 :-f-t + l : IF 
f > 181 THEN -f = l 

240 c (f )=a:d <-f) =b :NEXT :sc=sc +100:LO.CATE# 1,10,1 :PRINT#1 ,USING"#### 
##";sc:ff=3¡RETURN 

250 IF t-2 THEN SOUND 4,0,10 ,5 ,0 ,0 ,8 :FOR n = l TO 3:f=-f + l:lF +>181 
THEN f=l 

260 c(+)=a:d(+)-b :NEXT:sc=sc+10 :LOCATE#1,10,1:PR1NT#1,USIMG"##### 
#" ;sc :men-men + l :IF men=20 THEN sh-sh+1 :fred=REMAIN (1 ): + + = ! :RE1 UF:N 
ELSE ++=3:RETURN 

270 IF t=3 THEN SOUND 131 ,0,50,7,0,0 ,3 : + red=REI v IAlN (1) :vidas=vidas 
-1:IF vidas>0 THEN ++=1:ELSE ++=2 
280 RETURN 

290 +g=l : IF fgl = l THEN LOCATE aal ,bb1 : PRINT" ";:RETURN ELSE RETUR 
N 
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300 aal=INT(RND*37)+2:bbl=INT(RND*lB>+2¡IF FN ch=2 0R FN Ch-3 THE 
N RETURN ELSE SOÜND 1 ,30,0,0, i : LOCATE aal,bbl:IF RND<0.5 THEN F'EN 
1 ELSE PEN 3 

310 PRINT CHRi(245) :f g=0 : -f g 1 = 1 : cou= 100 : RETURN 

320 MÜDE O : IF se >VAL (MI Di (ai (1) ,13)) THEN PEN 15 : PR INI"" TUS PUN TOS 
SON" ;TAB<7) ¡¡CHE* (10) ¡"RECORD " ELSE GOTO 410 
330 LÓCATE ó, 6 :PEN 13:PRINT"TU NOMBRE?"¡CHRi(10) ; TAB(3)" (Max 10 ] 
etras)":LOCATE 6,1Q:PRINT STRINGi(13," ") ¡LOCATE 6,10:CALL &BB03¡ 
INF'UT" " ,nT :ni=UPPERÍ (ni) 

340 IF LEN(ni)>10 OR LEN(ni)<1 THEN 330 
350 check-10 

360 WHILE se<VAL (MIDi (ai (check ) ,13)) 

370 eheck=check-l 
380 WEND 

390 IF check>1 THEN FOR n=l TO cheek-1 ¡ai(n)=ai<n + l> ¡NEXT 
400 ai(check)=nÍ+STRINGÍ(( 11 -LEN(ni)) + (7-LEN(STRÍ(se))) ," ")+STRÍ 
(se) 

410 CLS:PEN 15 :PRI NT TAB (5)"MAX .PUNTUACION" ; CHRi(10) ¡FOR N=10 10 
1 STEF' -1 

420 PEN INT(RND#4)+1¡PRINT TAB(2) Ai (N) ;CHRÍ(10) ; 

430 NEXT 

440 CALL &BB03 

450 LOCATE l,24sPEN 12 ¡PRINT"PULSA " 5 :F'EN 11:F'R1NT"C " ; :PEN 12 ¡PR 
INT "PARA SEGUIR" ¡LOCATE J. ,25 :PRINT"Ü ";¡PEN 11:PRINT"Ü "¡¡PEN 12: 
PRINT"PARA OPCIONES" ; 

460 SC-0:sh-0¡vidas~3 

470 IF INKEY (62) 0-1 GOTO 520 

480 IF INKEY (34) 0-1 THEN GOSUB 650 ¡CLS ¡GOTO 410 

490 IF INKEY (58) 0-1 THEN INK 0,13:1NK 1,0 ¡PAPER O ¡PEN 1 ¡SORBER 1 
3 :MODE 2¡LIST 
500 GOTO 470 

510 DI¡wi=wi-1¡PLOT wi ,4,1¡DRAWR O , 8 ,1 ¡ 1F wi = 100 THEN SOUND 2,150 


,0,0,2¡El¡RETURN 


520 l'NK 2 
W I 
530 


INK 


ELSE El¡RETURN 
0,0 ¡INK 1,0 ¡INK 


3,0i 


BORDER O¡PAPER O ¡MODE 1 ¡W1NDÜ 


,40,. 


!I ¡WINDÜW#1,1,40,23,23:WIND0W#2,2,39,2,20 


; PAPER#I ,0 


CLS ¡PEN 3¡PAPER O¡FOR n=2 Tü 20¡LOCATE 1 ,n¡PRINT CHRiC 


OCATE 40 


: PRINT CHRi( 247 ) ; ¡NEXT¡LOCATE 1 ,1 ¡ PRINT CHRi < 249 ) 


54) ; ¡L 

;• T o Y 



Gí ( 38,CHRi ( 248 ) ) ; CHRi ( 250 ) ; : LOCATE 1,21:PR I NT CHRi ( 251 ) 
E4GWRÍÍ253) UCMRÍ C25?) ? 

540 INK 2,0:1NK 0,0:1NK 1,0:1NK 3 ,0 : CLS#2 : PEN 3 : PAPER 1 

SIRINGi ( 3 

LOCATE 2, 


6 ¡PRI NT STRINGÍ ( (sh MOD 6/*4 ,CHRi (244) ) ¡LOCA TE 40- ( <sh ¡ v 
1 5 H-RIklT STRTNHi í (cil, Mnn A 1 % L.HR i. ( 2 44-U 

OD 6) *4) 

ATE 10,13 

1 ■_> ¡ üUaUb 

b50 IF sh 1 HEN PEN 3 ¡r AF'i±R ü ¿ LUi4A \ b 30 “GiOSUB é>40 sL:OC 

sGüSUB 640:IF sh>U THEN LOCATE 25,2sGOSUB 640sLOCATE 5, 


640 : IF sh >1 / 
560 PAPER 0: 
(1)¡LOCATE 1 
5/0 FOR v- ; l 

THEN LOCATE 25,2¡GOSUB 640¡LOCATE 15,15¡GOSUB 640 

LOCATE 10,5 : PEN 1 : PR I NT CFIR'i ( 240 ) : PR I NI CHRi ( 22 ) +CHRÍ 

0,5¡PEN 3¡PRINT CHRi (241) 

TO 20 


580 aal = INT(RND#37)+2:bbl = INT(RND*18)+2:IF' FN ch-2 OR FN 
O 580 

590 LOCATE aal,bbl¡PEN 


¿¡PRINT CHRi(242)¡LOCATE aal,bbl 
CHRi (22) -i- CHRi (O) ¡ OR IGIN 


PEN 


100 , i: 


NT CHRi(243)¡NEXT¡PRINT 
G 3¡ORIGIN O,0,101,640,12,4:CLG 2:ORIGI N O,O,O, 640,400,0 

¡PRINT#! 


-3 GÜT 

3 ¡PRI 
,4 ¡CL. 


600 PEN#I ,1 ¡CLS#i¡PRINT#! ,TAB(4)"PUN TOS 
ING"######" 


se:LOCATE#1,30,1:PRINT#1,"VIDAS 


¡LOCATE#! 

¡vid a 


,10,1 


,US 


¡INK 2,24¡INK 


0,0¡INK 1,26¡INK 3,6 

61 0 men=0 :z =0:zi= ""¡ e=0¡ + =0:a=10:b=5:c L 1J-10 ¡ d C1 1 =5 :fg=l:wi=639 : E 
VERY 4,1 GOSUB 510 
620 CALL &BB03 
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630 i 

GOTO 60 




640 

RINT 

PRINT c11 i ¡ : PRINT el 24 
c 1Sí: RETURN 

; : PR I NT c l2í ; : PR I NT c 12í ; : PR I NT c 1 24- ; : P 


650 MUDE 0:PAPER 13:CLB¡BOEDER 


:PEW 5:LOCATE 7,6: PR1 NT "! ECLADU" 


TAB(10) "ü" :PRINT; PR I NT TAB(7) "JÜYSTIK" : PR INI ; PR I NT T 


THEN DUÍ=INKE Yí:BOTO 700 
THEN 1 i-CHRI (B) : ri=CHRi <9) 


:uí=CHRi (1 1) ;dí=C.tí 


TAB(5)"APUNTA":PE 


: PR 1N ! 5 R'R 1N I 
AB (8) " (T . ..J) " 

660 CALL &BB03 
670 1F INKEY(51) 

680 IF i IMKEY (45) 

Ri (10) :GOTO 780 
690 GOTO 670 

700 CLSiPEN 6:PRINT"DEFINE TU LAS TECLAS":PRINT 
N 5 sLOCATE 8,7:PRINT"I2ÜIJ ; " ; s CALL &BB03 
710 LÍ-UPPEEÍ (INKEYÍ) : IF Lí="" GOTO 710 ELSE PRINT Li 
720 PEIM 7: LOCA TE 6,9: PR INT " DERECH : " ; : CALL &BBG3 
730 RÍ=UPPERi(INKEYÍ) ¡IF Rí="" ÜR RÍ=LÍ GOTO 730 ELSE PRINT Ri 
740 PEN 3: LOCATE 6 , J. 1 ; PRINT "ARRIBA : " ; :CALL &BB03 

750 U4—UPPERÍ (INKEYÍ)- s IF Uí="" ÜR UÍ=LÍ OR U*=EÍ GOTO 750 ELSE PR 
I NT Uí 

760 PEN 8 :LOCATE 7,13 sPRINT"ABAJO : " ; sCALL &BB03 

770 DÍ--UPPEEÍ (I NKE Y i) : IF üi="" ÜR DÍ=LÍ ÜR DÍ=RÍ ÜR DÍ^UÍ GO TO 77 
O ELSE PRINT Di 

780 FOR Ñ=1 TU 200sNEXT:INK 0,0:INK 1,24:B0RDER O: PAPER O: RETURN 
790 SYMBOL AFTER 199:SYMBOL 200,255,192,127,63,26,26,26,26:SYMBÜL 
201,255 ,3,254,252,88,88,88,88:S YHBOL 202,26,26,26,26,63,127,192, 
255¡SYMBOL 203,88,88,88,88,252,254,3,255 ¡SYMBOL 204,26 ,26,26,26,2 
6,26,26,26 :SYMBOL 205,88 ,88,88,88,88,88,88,88 

800 SYMBOL 249,255,180,205,182,157,210,172,187¡SYMBOL 250,255 ,37, 
203,187,213,95,169,149¡SYMBOL 251,169,149,250,171 ,221 ,211,164,255 
¡SYMBOL 252,221 53,75,185,108,179,45,255¡SYMBOL 253,0,40,102,218, 
89,213,117,255 

810 SYMBOL 254,168,252,198,248,154,228,140,240¡SYMBOL 248,255,117 
,213,89,218,102 ,40,0 : S Y MBOL 247,21 ,63,99,31 ,89,39,49,15 :SY TIBOL 24 
2,0,126 ,24 ,60,126,126,126 ,60:S YMBOL 243,0,0,29,2,0,0,0,0 
820 SYMBOL 240,0,24,60,102,102,60,24,0¡SYMBOL 241,0,0,0,24,24,0,0 
,0:8YMBOL 244,238,238,0,187,187,0,238 ,238-¡SYMBOL 245,126,126,126, 
126,60,24,24,126:8 Y MBOL 246,0,42,84,42,0,0,0,0 

830 el1Í=CHEÍ(200)+CHRÍ(201)+CHRÍ(8)+CHRÍ(8)+CHRÍ(10) :cl2í--CHRÍ(2 
04) +CHRÍ (205) +CHRÍ (8) +CHRÍ (8) +CHEÍ (10) ¡el 3Í=CHRÍ (202) +CHRT (203) 


840 ' 

850 DEFINI A-R,T-Z¡DIM C (181) , D (181) : SC=0 : SH=0:VIDA8-3 : ENV 2,127, 


6,1 : 
86 o 

870 

ENV 1,1,15,1,14,-1, 
DIM Aí(10) 

Ai(10)="JOSE PONS 

5,5,0,1 

5000 

880 

Ai (9)="AMSTRAD 

4500" 

890 

Ai(8)="JOSE PONS 

4000 " 

900 

Ai (7)-"AMSTRAD 

3500" 

910 

Aí(6)-"JOSE PONS 

3000 " 


lili ( ‘"-j-Y’ 1 R íiLS -i- R A D 

— 2—500 " 

930 

Aí(4)-"JOSE PONS 

2000 " 

940 

Aí(3)="AMSTRAD 

1500 " 

950 

Aí(2)="JOSE PONS 

1000 " 

960 

Ai(1)-"AMSTRAD 

500" 


970 DEF FN TR-TEST((A*16)+7,((25-B)* 16)+8) :DEF FN TL=TEST((A#16)~ 
25,((25-B)*16>+8):DEF FN TU=TEST((A*16>-9,((25-B)#16)+24)¡DEF FN 
TD—TEST ( (A * 16) -9 , ( (25-B) * 16) ~S) : DEF FN CH--TEST ( (AA1 * 16) -7 , ( (25-BB 


1)*16)+8) 
980 RETURN 
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GORILA 


10 MODE 1 :PR1NT"NUESTRO HEROE TIENE QUE RESCATAR A LA" ;PRIN"! "PRIN 
CESA, PERO EL MALVADO GORILA NOS" 

20 PEINT"LO IMPIDE TIRANDONOS BARRILES., 



ADA PASO AUMENTA LA PUNTUACION 
60 PRINTSPRINT"PULSA UNA TECLA" 

70 A$=INKEY$:IF A*="" THEN GOTO 70 
80 SYMBOL AFTER 228 


90 SYMBOL 24J. ,66,126,66,66,66 , J. 26 ,66 ,66 



150 MEMORY 34495 
160 GOSUB 1550 
170 GOSUB 720 
ISO GOSUB 660 

190 ÍF iev=1 THEN GOSUB 910 

200 IF lev=2 THEN GOSUB 1010 

210 IF lev-3 THEN GOSUB 1140 

220 GOSUB 1330 

230 x~2 : y-23 

240 b x - 1 :by-7:bd~l sbe-0 

25O c= 20:cy-= 7 :cd r ---1 ice-O 

260 IF iev--3 THEN bx=7:cx=13 

270 GOSUB 2070 

280 GOSUB 2240 

290 GÜSLJB 2130 

300 PEN 7 

310 LOCATE x, y: PRINT o¡n$ 

320 GOSUB 1590 

330 IF y<6 THEN GOTO 440 

340 LOCATE , y 

350 GOSUB 2650 

360 IF ch<>241 AND ch<>32 THEN GOTO 480 

3 70 LOCATE x,y + l 

380 GOSUB 2650 

390 IF eli-32 THEN y=y + l 

400 PEN 7 

410 LOCATE bx,by :PRINT obí 
420 LOCATE ex,cy:PRINT oc$ 

430 GOTO 270 


10 - AMIGOS DEL AMSTRAD - 1987 
































































4FP0 

j. y v.i tí' 

v + j. ; i. r ¡ 

L fc*‘ V —• *+ í h 

•iEN levo 

: J. 







4 üj <_) 
4 ¿¡o 

SC--SC + 

(1ev#50> 












I—LJL.-H I £l r ^ ¿r. ; h 'K I N 1 SC 












4 SO 

uu i y 171.1 

SOUND 2,300,75 

1 i —: j 1.i ü I f- lia 

>,15,0,0 
■0 THEN 









490 

, JO 

GOTO 55f 










500 

FOR n=1 rn 1 1 










510 

LOCATE 

17+n,25 

l 












520 

ME X T 














530 

PEÍNT" 

II .i 












540 

GOTO 190 













550 

CLS 

PRINT; 1 

-■EN 3 














•_« ¿D O 














•-* i i .) 

580 

590 

600 

r K 1 N 1 

PRI NT : F 

LOCATE 

LOCATE 

1 E D 

lERR I fc¡0 











-n. j. |\< i ¡¡ r n j. |\j i ■■ tr.L. 

PERVERSC 

3 MONO 1 

li 









u •' «vJ-i'i i i li riHRLH 

5,25:PRI NT"PULSA UNA 
i Y i : IF Ai:-"" Tl-IPM rjrrrn 

j¡ oC |¡ 

















610 

Aí-1IMKE 

1 LLLH 








620 

SOUND J 

- .2500 .2 

•5, 1 5 










630 

GOTO 170 












640 

RETURN 














650 

'COMIEN 

JZÜ DEL 

JUEGO 












660 

670 

680 

690 

700 

SC=0: L 3 

r -3 











LEV-1 













L.4 ~UrlK-t* K xlH 1 ; 

i-CHRÍ c 

244) 











DT--L.nn.-i 

RETURN 
•' DEFINE 
RESTORE 
FOR N-C 

■\xLHxLJ Srl 










710 

’ mi no ere 









720 

• 720 













730 

) TU 15 













740 

REAEi A 













750 

INK N, A 

} 













760 

NEXT 















770 

BORDER 

0 sPAPER 

0 ¡¡PEN 

1 :1-10DE ( 

) 








) 

78o 

RETURN 














790 

800 

810 

820 

830 

DA 1 A 0 , 
DATA 22 

18,6,24 

,20,7,1! 

5,2 









) 

• 1 13 ,1 i , 

T , oí. O , d , , 

22 , 13 










uc:.r 1 1 m ti r HN 1 HLLA 









i 

l 1- U 1 1 U IMLJ-T- \ , 

n q «pjr-i.i 











840 

FOR N—8 
PEN PE 

1 TO 24 

QTFP zi 










850 












860 

LOCATE 

i ,N sPRINT. P* 










ú 

870 

PE=PE+1 












1 

880 

NEXT 













890 

RE iUEN 















900 

■‘NIVEL 

I 














9 10 

GOSIJB 8 

¡20 











) 

920 

FOR N-8 
PO-R’ND ( 
ÍF N<24 
.LPÜ-END 
IF N<24 
PEN 10 

, TO 20 

BÍEP 4 












9 Jo 

940 

950 

1 ) % 1 /+2 
THEN Li 
id)#! 7+ 
THEN Pi 

□CATE PC 












1 

J , I -i : PKI N T " 










960 

u I»~ Lrí 

ü-LPü s S£ 

j-PU 1 HEN 801 0 

V bu 








1 

970 

-‘uun J. ■‘-(•C 











980 

NEXT 














1 

990 

RETURN 













1 

.1 00 L 

) ' NIVEL 

xl 




























► 






























) 






















i 
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1030 POR N--13 10 24 

1040 LOCATE 7,NiPRINT STRXNG*(8,243) 

1050 NEXT 

1060 LOCATE 7,19;PRINT STRINGT(8,32) 

1070 LOCATE 7,23;PRINT STR i NÜT <8,32) 

1 OSO LOCATE 7,15;PRINT STRING$(8,32 > 

1090 Pü= : 8 ; N-8 : OOSUB 1480 ;Pü= 18 :N= 12 :GOSUB 1 480 

1 i uu ; PU--J s N~ .1 6 ; GOSUB 1480 : PU-1 tí ; N-20 i GOSUB 148< 

1110 PEN 10 

1120 RETURN 

1130 'NIVEL 3 

1140 GOSUB 820 

1150 LOCATE 1,8¡PRINT STRING*<5,32) 

1160 LOCATE 16,8:PRINT STRINGT < 5,32) 

1170 LOCATE 1,12:PRINT STRINGÍ< 4,32> 

1180 LOCATE 17,12:PRINT STRINGT < 4,32> 

1 190 LOCATE 1 , J. 6 : PR I NT STRING3? (2,32) 

1200 LOCATE 19,16 ; PR I NT STR ¡ NGí- (2,32) 

i 2 i O po=7 : n12 : GOSUB 1480 

122o p o— 14:n12 : GOSUB 1480 

123 O p o=2 s i t =2 O:GOSUB 148O 

i 2 4 O p o = 19 : n=2 O : G O S U B 14 8 O 

1250 po=9 :n=16:GOSUB 1480 



1260 po=12 :n> 

-16:GOSUB 1480 





1270 po=10 ;n- 
1280 po = 11 :rv 
1290 LOCATE < 
1300 PEN 10 

“8:GOSUB 1480 
-8 :GOSUB 1480 
b,20:PRINT" " :L 

.OCATE 1 

5,20 :PRINT" 


itílü Kt1UKN 

1320 'remate 

1330 LOCATE 1,25 
1340 PEN 10 

1850 PR TNT"TñNTFn" ” c 

se 





1360 LOCATE 

■ ■ • • ■—.i - 

1 6 .25 






1370 PEN 6 

1380 POR n=1 Tü li 
1390 PRINT CHRÍ<248: 






1400 NEXT 
1410 PEN 7 
1420 LOCATE 
1430 PLOT 0,: 

15,6: PR I NT STR INGT- <5,2 
325:DRAW 150,325 

!43) 



1440 po=18:n=12:GOSUB 1480 
1450 GOSUB 650 

1460 RETURN 

1470 'escalera 
i /IRC) pop 7=0 rn o 





1490 PEN 7 
1500 LOCATE | 
1510 PRINT i: 
1520 NEXT 2 

po ,n +2 
$ 






1530 RETURN 

1540 ' iniciad on 

1550 addr=34999:GOSUB 2540 
1560 loca=35Ü24:GOSUB 2690 





1 D /ü KEIUKN 
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trVQ ti €J 4 & O 0 G 4 4 4 €t €/ & 4 4 4 V €J 4€J & 















































1580 

' moví ni 

iento 












1590 

GOSUB 

2430 














1600 

IF le-- 

1 AND 

•2 THEN 

x=x-l :rr 

ii—CHRi ( 

245) 











16 i 0 

IF r i- 

1 AND x ■ 

19 THEN x=x+ls 

mí=CHRÍ 

(244) 









1620 

1630 

1640 

IF up = 

1 THEN 

1 THEN r 
1 THEN 

ni-CHKi 

nÍ=CHRÍ 

246) sGOTÜ 166t. 











IF do= 

246) sGOTO 174C 











IF i i - 
RETURN 

i nrATP 

JU i U 1 /BU 











i OJv 

1 A Ai") 

X , y — 1 













I OO'J 

1670 

1680 

1690 

GOSUB 
ÍF ch< 

y = y -1 : 

LOCATE 













j— w 

>241 THEN GOTO 
GOTO 1630 

1700 





















1700 

x , y + 1 













1710 

GOSUB 

2650 













1720 

IF ch= 

241 THEN GOTO 

1690 











1730 

GOTO 1 

630 












174C 

LOCATE 

X ,y+l 













1750 
i taci 

GOSUB 
IF cíi< 

• ¿>riO 

>241 TREN BOTO 
GOTO 1 A A O 

■f ~t f\ t~\ 












1 í ou 

1770 














1780 

y y 1 ■ 
IF mí= 
IF x <2 

LM- 1 1 U J. LO “ 

CFIR4- (245) THEN 
OR x >i9 THEN > 

v rl=~ 1 F 

ILSE x el - 

1 











1790 

A U 1 L 

íd=0 










180C 

IF mí= 

CHRÍ(246) THEN 

K d~0 












1810 

LOCATE 

bx,bySPRINT obí 












182C 
1830 

LOCATE ex , c y : 
RESTORE 1910 

PRINT oc$ 












1840 

FOR n= 

1 TO 6 














1850 

READ a 

















1860 y=y+a: 

GOSUB 1 
t = l THEI 

920 














i ü /u 

íi- pía 

\| n-11 















x oa'.i imc.a i 

1890 GÜ3UB 

1 QflA CfFTI Ittk 






























191C 

DATA - 

x -;< +x d 

1 . — 1 . o „ 

). 1 1 













1920 

sp1at—0 
















193C 

LOCATE 

x ,y + l 
2650 














1940 GÜSUB 
















1950 

IF ch< 

>32 THE 

N plat= 

lsRETURT 

J 











1960 

GOSUB 

2070 













1970 

GÜSUB 

2130 













1980 

SOUND 

2,100,2 

,15 












1990 

PEN 7 















2000 

LOCATE 

bx , b y : 

FKINT obí 












20) 10 

2020 

omr 

LOCA l"E 

GOSUB 

LOCATE 

RF TI IRN 

CX ,C y : 

2240 

PRINT oci 

























/ V J l. 

y (■) A (■ 

, y ; r r\ i rM i uni-T- 













X. V “ X 

2050 

r\ l_ i LirViN 

' ri if i n 

a Ha imnracinn 














2060 

'hombre 















2070 

LOCATE 

x . u : GOSUB 265 

J 













2080 

) omí=CHRÍ(ch) 














2090 

PEN 2 














2100 

) CALL i 

BD19 SPRINT mí 













2110 

RETURN 

















2120 

i 'barrí 

les 















2130 

LULA TE bx ,by : 

GOSUB 2 

650 












2140 

) ob$=LHRi (ch) 
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2150 

LOCATE ex,cy:GÜSUB 2650 


2160 
2170 
2180 

1 OA 

oc$=CHRÍ : (ch ) 

PEN 3 

LOCATE bx,by 

pai i V,OT"i "1 O ■ nn t hit i,. .+• 


¿I7U 

2200 

2210 

2220 

2230 

LHLL Íítfmv : rKil'l 1 Di 

LOCATE cx,c y 

CALL &BD19 SPRINT bí 

RETURN 
' barrí 1 


2240 

a=RND(l)*10 


2250 

LOCATE bx,by+l 


2260 

80SUB 2650 


2270 

IF ch=32 0R ch=241 AND a>5 THEN be=l 


2280 

IF ch=243 THEN be-0 


2290 

by=by+be:IF be=0 THEN bx=bx+bd 


2300 

LOCATE ex,cy+l 


2310 

G0SUB 2650 


2320 

IF ch=32 0R ch=241 AND a>5 THEN ce=l 


2330 

IF ch=243 THEN ce=0 


2340 

cy=cy+ce:IF ce=0 THEN cx=cx+cd 


2350 

IF bx<2 THEN bd=l 


2360 

IF bx >19 THEN bd=-l 


2370 

IF ex<2 THEN cd=l 


2380 

IF ex>19 THEN cd=-l 


2390 

IF (bx <2 OR bx >19) AND by=23 THEN bx 

= 1 :bd = l 

EN bx 

=7 


2400 

IF (ex<2 OR ex>19) AND e y =23 THEN ex 

=20 :cd = 

THEN 

ex = 13 


2410 

RETURN 


2420 

' teclas 





4.*tJ U 

ie-ysri=U ; up=0:do=U:1 1 =o e ex=U:g—0 


2440 

CALL addr+1 :a=F'EEK (addr) 


2450 

IF a=8 OR a=242 THEN le=l 


2460 

IF a=9 OR a=243 THEN ri=l 


2470 

IF a=l1 OR a=240 THEN up=l 


2480 

IF a=10 OR a=241 THEN do=l 


2490 

IF a=88 OR a=224 THEN fi=l 


2500 

IF a=13 THEN g=l 


2510 

IF a=32 THEN ex=l 


2520 

RETURN 


2530 

'pote en teclas 


2540 

c=INT(addr/256):b=addr-256*c 


2550 

RESTÜRE 2620 


ncr / a 



¿JOÜ 

rUK n—addr 1 U addr - ^ 1J 


2570 

READ a:IF a=999 THEN a=b 


2580 

IF a=998 THEN a=c 


2590 

POKE n ,a 


2600 

NEXT 


2610 

RETURN 


2620 

DATA 0,62,0,50,999,998 ,205 , 27 


2630 

DATA 187 , 208 , 50,999 , 998 , 201 


2640 

'comprueba caracteres 


2650 

CALL loca+1 


2660 

ch=PEEK(loca) 


2670 

RETURN 


2680 

'pokes en comprobación 


í , o 

—. — T KIT i 1 4 - w- -v / -o cr / \ _ i__n _____ cr / \L- „ 


¿07U 

C~'XfNI \ I OCá/ ¿.jo ) .D-loca ¿L %J O L. 






















F 1ev=3 

TH 

:IF lev : 

=3 
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2700 RESTORE 2770 

2710 FOR n-ioca TO loca+13 

2720 READ a:IF a=999 THEN a=b 

2730 IF a=998 THEN a=c 

2740 POKE n,a 

2750 NEXT 

2760 RETURN 

2770 DATA 0,62,244,50,999,998,205,96 
2780 DATA 187,208,50,999,998,201 



TRAGON 


10 GOTO 1570 
20 MODE O 
30 GOSUB 820 

40 WHILE NOTttrue AND -false) 

50 vidas=3:pantalla=0sfuerza=100 
60 WHILE vidas 
70 GOSUB 460 
80 GOSUB 870 

90 WHILE NOT dead AND uti>0 AND fuerza>0 
100 GOSUB 170 
110 GOSUB 350 
120 WEND 

130 IF dead THEN GOSUB 1400 ELSE GOSUB 1490 


140 WEND 

150 GOSUB 1610 

160 WEND 

170 'mueve hombre 

180 f uerza=-f uerz a-1 : IF fuerzaíl THEN dead=true :RETURN 

190 PEN 3:LOCATE 7,1:PRÍNT FUERZA 

200 x x =x + ( (INKE Y (8) >-1) - < 1NKE Y (1) >-1 ) ) 

210 y y —y+<(INKEY(O)>-l)-(INKEY(2)>-l)) 


220 IF xx<1 OR xx>20 THEN xx=x 
230 IF yy<3 OR yy>24 THEN yy = y 

240 IF m(xx,yy)-1 OR m(xx ,yy — 1) = 1 THEN xx=x:yy = y 
250 IF x x >x THEN POKE &A036 , &A 1 : CALL &A000 , x , y , 2 , x x , y y 
00,x,y-l,2,x x,y y-1,0:d = lsSOUND 130,500,10,10:GOTO 310 
260 IF xx <x THEN POKE &A036 ,&A1 ¡¡CALL &A000 ,x , y ,2 ,xx , y y 
00,x,y-1,2,x x,y y-1,4:d=0:SOUND 130,500,10,10:GOTO 310 
270 IF <yy<y AND d = l) THEN POKE &A036 ,?<Ai :CALL &AOOO,x 
1 : C ALL &A000 , x , y , 2 , x x , y y--1 ,0 : SOUND 130,500,10,10 : GOTO 
280 IF <yy<y AND d=0) THEN POKE &A036,&A1 :CALL &A000 ,x 
5:CALL &AOOO,x,y,2,x x,y y-1,4:SOUND 130,500,10,10:GOTO 


,1:CALL 


, 5:CALL 


, y , 2 , x x 
310 

, y , 2 , X X 
310 


&A0 


«cAO 


?yy ? 
?yy i 
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290 IF ( y y >y AND d=0) THEN POKE &A036 ,&A 1 : CALL &A000 , x ,y-l , 2 , X X , y 
y , 5 : CALL &AOOO , x , y-1 ,2 , x x , y y- i , 4 : SOUND 130,500,10,10 : BOTO 310 
300 IF ( y y >y AND d= 1) THEN POKE &A036 , StAl : CALL &A000 ,x,y~1,2, x , y 
y , 1 : CALL &A000 , x , y -1 ,2 , x , y y-1 ,0 : SOUND 130,500,10,10 ¡ GOTO 310 
310 IF m<xx,yy)>3 OR m(xx,yy-l)>3 THEN SOUND 1 ,200,1,7 :fuerza=tu 
erza+10:m(x x,y y)=0:m < x x,y y — 1)=0:uti—uti-1 
320 x =xx ¡y —yy 

330 IF uti=0 THEN dead=-false:RETURN 

340 RETURN 

350 'mueve bicho 

360 FOR i=0 TO n 

370 bx=b(i,0):by=b(i,1):IF <bx=x AND by = y) OR (bx=x AND by=y-l) T 
HEN dead=true :POKE ?<A036 ,&A2 :CALL &A000 ,x , y , 11 ,x , y , 11 :CAL.L &A000 , 
x,y—1,12,x,y—1,12:RETURN 

380 bx=bx+SGN(x-bx)*0.5:by=by+SGN<y-by>#0.5 
390 IF m<bx,by)=l THEN bx=b(i,0) :by=b(i , 1) 

400 IF in(bx,by)>3 THEN bx=b ( i ,0) :by=b ( i , 1) 

410 POKE ?<A036,2<A1 :CALL &A000 ,b ( i ,0) ,b ( i , 1) ,2 ,bx ,by ,3 : SOUND 132,5 
0*n,5,i0,0,l 

420 IF (bx=x AND by = y) OR (bx=x AND by=y—1) THEN dead=true ¡POKE g< 
A036 , ?<A2 : CALL &A000 , x , y , 11 , x , y , 11 : C ALL & AOOO , x , y -1 ,12 , x , y ■-1 , 12 : RE 
TURN 

430 b <i,O)=bx:b <i,1)=b y 
440 NEXT 
450 RETURN 
460 ' 

470 pantalla=pantalla+1:FUERZA=100 
480 MODE OsBORDER 1 

490 PEN 3 ¡LOCATE 1 ,1sPRINT"FUERZA¡LOCATE 7,1¡PRINT fuerza;TAB( 
13)"VIDAS:";MID$(STR$(vidas),2) 

500 RESTORE 580 
510 FOR 1=3 TO 25 
520 READ P* 

530 FOR J=1 TO 20 
540 A$=MIDf(PÍ,J,1) 

550 IF A$=" THEN M(J,I)=0 

560 IF A$=" = " THEN M(J,I)=1¡POKE &A036 ,&A2íCALL &A000 , J , I ,9 , J , I ,9 
570 NEXT J,I 

580 DATA ==================== 

590 DATA 
600 DATA 
610 DATA 

620 DATA =.= 

630 DATA =.= 

640 DATA =_=.= ....= 

650 DATA =_=.=_= 

660 DATA =_==========_= 

670 DATA =.=====.= 

680 DATA .==== 

690 DATA .====.= 

700 DATA = . . .============...= 

710 DA1 A ■ 

720 DATA 

73O DA1A =»..= «... .... ... 

740 DATA =...=....==-=...= 

750 DATA =..==.= 

760 DA'I A =..==== .......= 


16 - AMIGOS DEL AMSTRAD - 1987 




























770 

DATA -- . 


780 

DA 1 A . 

u ■> e a o n ' 

7 0 

DATA , 

u a u c a - 

800 

DA!A 

-j. ---o -- 

810 

RE 1 Uh'N 


820 

EN! 1 ,2 

00,1 ,1 

830 

DIM m (2 

i ,25) ,1 

840 

truep-1 
GO0UB 1 

: + a 1 -se 

CK.'iU 

(_) S (.) 

860 

RETUEN 


8 7 0 

...-.17 .. .... ' ~\ 

'■ s y-¿ 

4 sPOKE 

.i ,Q 

, y- , y ■ - i ,, 

í.j 

800 

i i- -p an t a 

i i d. 

890 

FUE j -0 

T(J 11 

900 

b < :i , 0) - 

1 -i-1 NT ( 

) - l 

T'HEN 9 

0 (") 

9 10 

POKE SíA036 , Sí A 

9 2 0 

RIE A i 


930 

U ±-;[ . f a 

100¡ue 

9 40 

POR uti 

-i 10 : 

V ■ 0 

v-1 NT' (R 

NDJK5+1 

QUf\ 

T 1-.’ ÍV" í n. 

i , \ QD J. 




970 

1 ¡- v ••••■ 

T'HEN e 

980 

ni (a , b ) — 

V 

990 

11 ~ v = - 6 

THEN P 

1000 

1F v-7 

l'HEN 1 

1010 

IK vf--8 

THEN 

1020 

IF v-10 TTIEN 

1030 

NEXT :u 

.t i-ut i 

1 040 

RETURN 


1050 

REb1ÜR 

E 1060 

1 060 

DATA 1 

, 24 ,0 ,: 

1070 

INK 15 

,6,24 

i 080 

MEMORY 

Sí9FFF 

1090 

RESTORE 1120 


•i y »l 


, y , 1 5 CAL i..- SíAOOU , , y 


K AND ¡ — y ) ÜR i a-x AMD b=y-l) l'HEN 


:E &A036 , Sí A i : CAL.L. S<AOOO , a , b , v , a , b , v 
! KE S< A O 36;, Sí A i ; GAL.!.. Sí ADO O ,, a., b , v , a , ü , v 
IKE Sí A036 , Sí A2 ¡ GALL Sí ACO O , a , b , v , a , b , v 
’OKE Sí A O 36 , S, : A 2 : CALL Sí ACO O , a., b ,v ,a , b , • 


R a 3 O i • O 15 s R E A D b s 1W K a ,b sN E X1' 
, 4 , 7 , 9 , 10 , 15 , 5 , 6 , 11 , 12,26 , 1 6 


i-O Tü BO 


110 O REA D a $ s P O l< E Sí A O O O + i , V A L ( " Sí " + a $) 


1110 NEXT 

1 120 DA I A 26 , i -O ,dd , Vea ,0a ,3d ,87,87,6-f , 11 ,50,00 ,dd ,46,08 ,05,19,10 ,-f- 
d,dd,7e,06,cd,2f,a0,26,cO,dd,7e,04,3d,87,87,6f,11,50,00,dd,46,02, 
05,19,10 , f d ,dd,7e , 00 ,87,87 ,87,87,87 ,5+ ,16, al , 06,08,1a, 77,1 3 ,23,1 a 
, Ti ,13,23,la,77,13,23,la,77,13,78, 01 ,fd 
1130 DATA 07,09,47,10,E9,c9 

1140 RESTORE 1150:F0R i=0 Tü 415.-READ J sPOKE &A100+1 , j :NEXT 
USO ' HOMBRE DERECHA 0-1 

1160 DATA 0,68,136 ,0,0,68,136,0,68,204,204,136,0,28,54,0,0,28,60, 
40 ,0,28,60,0,0,20,40,0,0,252,252,0 

1170 DA TA 84,188,252,168,84,188,252,252,84,188,124 ,252,84,252,124 
,252,0,252,252,168,0,69,138,0,0,69,138,0,0,4,12,0 
1180 'BLANCO 2 

1190 DAT A O,O,O , O , O , O,O,O , O , O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O 


, O , O , O , O 


(.) 


1200 ' 1*108TRUO 3 

1210 DAT A 85,0,0,170 ,0,252,252,0,252,254,253,252,84,253,254,168, 

,252,252,0,84,84,168,168,84,84,168,168,168,168,84,84 

1220 'HOMBRE IZQUIERDA 4-5 

1230 DATA O,68,136,0,O,68,136,0,68,204,204,136,O,56,44,O,20,60,44 
,O,O,60,44,0,0,20,40,0,0,252,252,0 
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1240 DA I A 84,252,124,168,252,252,124,168,252,188,3 24,168,252,188, 
252,168,84,252,252,0,0,69,138,0,0,69,138,0,0,12,8,0 
1250 'UVA 6 

1260 DA f’A 68,136 ,204,136,136 ,68,0,68,0,168,243,0 ,84,84 ,81 , .162,168 
,168,168,168,84,84,84,0,0,168,168,0,0,84,0,0 
1270 'CIRUELA 7 

1280 DATA 0,0,136,204,0,0,204,0,0,0,136,0 ,0,81,243,0,0,243,249,16 
2,0 ,243,249,162,0,243,246,162,0,81,243,0 
1290 'CEREZAS 8 

1300 DATA 0 ,0,136,0,0 ,0,136,0,0,68 ,68,0,0,136 ,68,0,68,0,0,3.36 ,207 
,138,69,207,158,138,158,109,69,0,69,138 
1310 'ladrillo 9 

1320 DATA 204,204,204,204,207,206,207,207,207,206,207,207 ,204,204 
,204,204,204,204,204,204,207,207,205,207,207,207,205,207,204 ,204, 
204,204 

1330 'BOTELLA 10 

1340 DAT A 0,3,2,0,0,1,0,0,0,1,0,0,0,3,2,0,1,63,43,0,1,63,43,0,1. , 5 
1,35,0,1,51,35,0 
1350 'HUESOS 11 

1360 DATA 21 ,0,0,42,63,0,0,63,0,42,21,0,0,21,42,0,0,21,42,0,0,42, 
21,0,63,0,0,63,21,0,0,42 
1370 'CALAVERA 12 

1380 DATA O,O,0,0,21,63,63,42,63,63,63,63,63,29,46,63,21,63,63,42 
,21,63,63,42,0,46,29,0,0,63,63,0 
1390 RETURN 
1400 'muerto 

1410 vidas-vidas-i ¡pantal la=pantal la-1 : IF parrtalla<l THEW pantall 
a-O 

1420 RESTORE 1480 

1430 POR i = l TO 6:READ j¡SOUND 1,j ,20,12sNEXT 
1440 SOUND 1,478,100,12 

1450 IF vidas=0 THEN LOCATE 5,12:PEN 1 SPRINT CHE*(22) ;CHR$<1) ;"AR 

RGGGG_!!"sCHR*(22);CHRf(O) 

1460 POR 1 = 1 TO 3000 sNEXT 
1470 RETURN 

1480 DATA 956,758,638,851,716,568 
1490 'BORRAR LA PANTALLA 
1500 FOR 1=1 TO 2000:NEXT 


1510 RESTORE 1560 

1520 FOR 1 = 1 TO 15:READ J:SOUND 1 , J,20,12 sNEXT 
1530 SOUND 1,119,100,12 
1540 FOR 1=1 TO 3000:NEXT 
1550 RETURN 

1560 DATA 60,63,60,63,60,71,63,80,71,89,80,95,89,106,95 
1570 MODE OsPEN 1¡LOCATE 5,2:PEINT"TRAGONCETE"¡PRINT¡PRINT" Ayuda 
a tragoncete a comerse toda la fruta y beberse la limonada. 
1580 PRINT¡PRINT¡PRINT" Los CFAMÍS3 se lo impedirán. 

1590 PEN 2 ¡PRINT¡PRINT¡PRINT"TECLAS CURSOR . "¡PRINT¡PEN 3:PRINT"PU 
LSA TECLA" 

1600 CALL S<BB18 

1610 MODE 1 ¡ INK O , 13¡INK 1,26:1NK 2,20:1NK 3,2 
1620 DRAM O,398,1¡DRAM 638,398 ¡ DRAW 638,0¡DRAW O,O 
1630 PEN 3 ¡LOCATE 11 ,10 ¡PRINT"PANTALLA NUMERO" ¡¡PANTALLA+l 
1640 PEN i ¡LOCATE 7,15 ¡PRINT"Pulsa una tecla para empezar" 

1650 RESTORE 1760 

1660 a*=CHRÍ(164)+" JOSE VICENTE PONS." 

1670 B*=A* 
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1680 SÜUWD 2,239,10000,10: SOUND 4,319,10000,10 
1690 WHI LE 1 NKEY$< >"" :WEND 

1700 WHILE INK:EY$="" :READ J:IF 3=0 THEN RESTORE 1760:READ 3 
1710 SOUND 1,3,15,12 :LOCATE 6,24 : F'RINT MID* (BT , 1 ,30) : B*=M I Dí (Bí , 2 
) : IF LEN (B$)<28 THEN BT-BT+AT 
1720 WEND 

1730 SOUND 129,O,O,O:SOUND 130,0,0,0:SOUND 132,0,0,0 
1740 S=FRE("") 

1750 RUN 20 


1760 DATA 60,63,60,63,71 ,63,71,80,71,80,89,80,89,95,89,95,106,95, 
106,119,106 

1770 DA TA 239,213,190,179,159,142,127,119,190,179,159,142,127,119 
,106,95,159,142,127,119,106,95,89,80,0 



Kx’x'j K'-xxi Lx-xl Ix-x-O tiwd | 

C TVffi i fo'X'X-l Ix'xn'J ExxV-d Fx'x'-j Kx-; 



t-ssa c-sg-g k$x3 ES53 Ex?x 3 Essa E5?i5 ess 

E:-x-x : l Pxxx’-d TTxTl fcxTxi k : x : x-d Ew&d E 

^ e&ü esss rzsn Fssg e?s 






POLICE 

wm 
























10 REM * ANGEL GARCIA DELGADO * 

20 MODE 0 








30 INK O ,0:1NK 1,26:1NK 2,7:1NK 3,18 

40 PAPER O:BOEDER O 

50 0RI6IN 318,210 

60 FOR a=0 TO 2*PI STEP F'I/70 

70 PLOT 0,0,2 

80 DRAW 300*C0S(a),150*SIN(a) 

90 DRAWR 0,30*SIN(a>,3 
100 NEXT a 

110 PRINT CHR*(22)+CHR$(l); 

120 A$="POLICE":A=11-(O.5#(LEN(Ai))) 

130 LOCATE A , 12:PRINT A»; 

140 PRINT CHR$(22)+CHR*(Ó); 

150 INK 2,7,O:INK 3,0,18 

160 FOR a=l TO 300:SOUND 1,a , 1 ,15:NEXT a 
170 INK 2,18,7:INK 3,7,18 

180 FOR a=300 TO 1 STEP -2:S0UND l,a,l:SOUND 2,a*2,1 :NEXT a 

190 INK 2,7:1NK 3,18 

200 FOR a=l TO 500:NEXT a 

210 FOR a=0 TO 50:PRINT CHRi(7):FOR b = l TO 50:NEXT b :NEXT a 
220 MODE 1 
230 GOTO 280 

240 PRINT TAB(20-LEN(a$)/2):FOR a=l TO LEN(aí) 

250 b$=MID*(aí,a,l) :PRINT b$;:IF b$<>" " THEN PRINT CHR$<7); 
260 NEXT a 

270 PRINT:PRINT:FOR a=l TO 200:NEXT a:RETURN 
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270 II- B$=¿"SA" THEM CALL SACAsSAVE A$ ,B ,49152,16384 sSOUND 1 ,200 :C 
AL L. LIETE 

280 IF THEM A$=A$+' ,, 'BIN" :LOAD A$ ,49152 :SÜUND 1,100 ¡CALE ME 

TE 

290 IF BT--"Mü" THEM M-VAL (A$) sMÜDE M:n=(l AMD m-2?+<2 AMD m=l)'+T4 
AMD <n=0) 

300 IF BT-- "BU" THEM BORDEE' VALÍA*) 

310 IF b*="Tl" THEM NOVE X, Y, VAL (A#) 

320 IF B$="DT" THEM INPUT "COLORs"sCOsÍNK VALÍA*) ,CÜ 

330 IF B*— "CI " THEN R-VALíA*) sGOSUB 380 

340 IF B*-*"CL" THEN CALL SACA :CLB:CALL METE 

350 IF b*—" IN" THEM GOSLJB 430 

360 REM 

370 CALL SACA sRETURM 
380 REM -CIRCULO- 

390 CALL SACA:DEG:XÜ=X-M:Y0-Y--8 süRIGIN XO,YO:FOR A=0 TO 360 STEP 
10 

400 B-A--10 sPLOT RICOS (B) ,R*SIN(B) 

410 DRAW RICOS(A),R*SIN(A> 

420 NEXT AsORIGIM 0,0:CALL METE sRETURM 
430 REM 1:INK 1,26:MODE 2 

440 PEI NT" DIBUJO AUTOR: ANGEL GARCIA DELGADO G.T.S. - 

450 PEINT :PEINT"I MOVIMIENTO LAPIZ, CON LAS TECLAS DEL CURSOR" 

460 PEIN I :PRINT"I Z. DIBUJA UN PUNTO" 

470 PEI NT:PRÍNT"I SPACE. TRAZA UNA LINEA DESDE EL ULTIMO PTO. IRA 
ZADÜ HASTA LA POSICION ACTUAL" 

480 PRINT SPRINT"# TAB. ACCEDE AL MODO COMANDO, DONDE DISPONES DE 
LAS SIGUIENTES INSTRUCCIONES:" 

490 PRINT sPRINT" Mü X. FIJAR EL MODO DE PANTALLA <0,1 a 2)" 

500 PRlNT" TI X. SALECCIONA LA TINTA EN CURSO (0-15),<0=B0RRA 

R) " 

510 PRINT" CI X. TRAZA UN CIRCULO, CON CENTRO EN EL CURSOR Y 

RADIO X" 

520 PRINT" DI' X. DEFINE EL TINTERO DE LA PLUMA X" 

530 PRINT" SA NOMBRE. GRABA LA PANTALLA CON EL NOMBRE 'NOMBRE 

/ ll 


LD NOMBRE 


540 PRINT" 

550 PRINT" 

560 PRINT" 

570 PRINT" 

580 REM 

590 PRINT :PRINT sPRINT 


CARGA UNA PANTALLA" 

CL. BORRA LA PANTALLA" 

BU X. PONE EL BORDE DEL COLOR X" 

IMPRIME ESTA PAGINA DE INSTRUCCIONES" 


1 N 


PULSA -S- PARA CON"! 1 NU 


600 IF 1NKEY í60)< >0 THEN 600 
6.1.0 MUDE M sRETURM 

620 REM BUBRUT INAS C.M.s S-9000 L.-9045 1-20100 0-20150 

630 DATA 1.7,0,79,33 ,0,1 92,1 ,0,64,237,176,201 

640 RESTORE 630:POR a-20100 TU 20111sREAD b sPÜKE a.b : NEXT 


63p DATA 1 7,0,1 92 ,33,0,79 , J , O , 64,237 , J. 76,20 J 


>O iRHST ORE; 65'O :FUR 


-20150 Tü 20161 ;F 


•:EAD b sPÜKE 


6 TO pYMBÜL AFTER .1.60 s SYMBOL 160,0,0,15,63,227,63 , H: 
6ÍÍ0 Rir I I.Ü-.N 


a,bsNEXT 


20 - AMIGOS DEL AMSTRAD - 1987 


a 

a 


n 9 f? f»t? ruui & 







o 

5 

0 

O 

3 

O 

© 

© 

9 

9 

9 

9 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
40: Aí 
1000 
1010 
1020 
NEXT 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


PRINT"a 

PRINT"a 

PRINT"a 

PRINT"a 

PRINT"a 

PRINT"a 

PRINT"a 

PRINT"a 


a 

a 

a aaaaaaaa 

aaaaa 

aaaaa 

a 

a 

a 

a < 

a" 

a 

a 

a 

a a 

a 


a 

a 

a 

a 

a * 

a" 



aaaaa aa a 

a aaa 

a 

a 

a 

a 

a 

a 

a i 

a" 

a 

a 

a aa a 

i a 

a 

a 

a 

a 

a 

a 

a \ 

a" 

a 

aaaaa aaaaaa 

aaaaaaa 

a 

aaa 

a 

a 

a < 

a" 

a 


a 

a 

a < 

a" 


aaa 


aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

a a 

PRINT"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
RETURN 

DATA 205,96,187,50,47,117,201 
RESTORE 900 

FOR a=30000 TO 30006:READ b:POKE a,b:NEXT a 
SYMBOL AFTER 97 

97,0,127,127,127,0,247,247,247 

98.156.190.157.73.62.28.20.54 

99.28.28.8.62.93.221.212.54 
100,74,0,34,136,33,136,1,36 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
RETURN 
MODE 1:LOCATE 


1,5:A$="EL LADRON HA LOGRADO ESCAPARSE":GOSUB 2 


"DEL POLICIA":GOSUB 240:PRINT:A*="GANA EL LADRON":GOSUB 240 
GOTO 1010 

REM *** GAME OVER *** 

FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1,6,1,15,0,0,31: 
B:NEXT A 

-6 : INK 2,15,0:PAPER O:BORDER O:PEN 1:MODE O 


PEN 2 :L 
PEN 1 :L 
PEN 3;] 
FOR A= 

.OCATE 6 
.OCATE 4 
NK 3,15 
TO 50: 

PEN 1 

IF INKEY(60)=0 
IF INKEY(46)=0 
GOTO 1090 














"OTRA? (S/N) 


:NEXT A 


THEN 

THEN 


RUN 220 
CALL O 
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ROTULOS 


_ 


10 REM ** DEFINICION DE CARACTERES ** 

20 SYMBOL AFTER 65 

30 SYMBOL 65,0,56,68,146,170,170,170,186 
40 SYMBOL 66,0,248,132,178,170,170,178,132 
50 SYMBOL 67,0,56,68,146,170,174,160,160 
60 SYMBOL 68,0,248,132,178,170,170,170,170 
70 SYMBOL 69,0,254,130,186,174,160,188,132 
80 SYMBOL 70,0,254,130,186,170,174,160,188 
90 SYMBOL 71,0,56,68,146,170,174,160,174 
100 SYMBOL 81,0,56,68,146,170,170,170,170 
110 SYMBOL 72,0,238,170,170,170,170,186,130 
120 SYMBOL 82,0,248,132,178,170,170,170,178 
130 SYMBOL 73,0,254,130,238,40,40,40,40 
140 SYMBOL 83,0,56,68,146,174,160,160,156 
150 SYMBOL 74,0,30,18,26,10,10,10,10 
160 SYMBOL 84,0,254,130,238,40,40,40,40 
170 SYMBOL 75,0,226,166,170,178,164,136,144 



180 SYMBOL 85,0,238 
190 SYMBOL 76,0,224 
200 SYMBOL 86,0,238 
210 SYMBOL 77,0,238 
220 SYMBOL 87.0.238 

,170,170,170,170,170,170 
,160,160,160,160,160,160 
, 170,170,170,170,170,170 
,186,146,130,170,186,170 
. 1 70.170.170.170.170.170 




230 SYMBOL 97,130,186,170,170,170,170,238,0 

240 SYMBOL 78,0,238,170,170,154,138,130,162 

250 SYMBOL 88,0,238,170,170,170,170,186,84 

260 SYMBOL 98,178,170,170,170,178,132,248,0 




270 SYMBOL 79,0,56, 

68,146,170,170 

, 170,170 
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80 SYMBOL 89,0,238,170,170,170,170,186,84 
!90 SYMBOL 99,160,160,174,170,146,68,56,0 
¡00 SYMBOL 80,0,248,132,178,170,170,170,178 
*10 SYMBOL 90,0,254,130,250,10,10,20,40 
120 SYMBOL 100,170,170,170,170,178,132,248,0 
J30 SYMBOL 101,188,160,174,170,186,130,254,0 
)40 S YMBQL 102,132,188,160,160,160,160,224,0 
350 SYMBOL 111,170,170,170,170,146,68,56,0 
360 S YMBOL 103,178,170,170,170,146,68,56,0 
370 SYMBOL 112,132,184,160,160,160,160,224,0 
380 S Y MBOL 104,186,170,170,170,170,170,238,0 
390 SYMBOL 113,170,186,170,164,146,74,54,0 
*00 S Y MBOL 105,40,40,40,40,238,130,254,0 
*10 SYMBOL 114,132,168,180,180,170,170,230,0 
*20 S Y MBOL 106,234,170,170,170,146,68,56,0 
*30 SYMBOL 115,68,50,10,234,146,68,56,0 
*40.S YMBOL 107,136,164,178,170,170,170,238,0 
450 SYMBOL 116,40,40,40,40,40,40,56,0 
460 SYMBOL 108,160,160,160,160,190,130,254,O 
470 SYMBOL 117,170,170,170,170,146,68,56,0 
480 SYMBOL 109,170,170,170,170,170,170,238,0 
490 SYMBOL 118,170,146,84,68,40,40,16,0 
500 S Y MBOL 110,178,178,170,170,170,170,238,0 
510 SYMBOL 119,170,170,186,170,130,84,108,0 
520 SYMBOL 120,84,170,170,170,170,170,238,0 
530 S YMBOL 121 ,68 ,40,40,40,40,40,56,0 
540 SYMBOL 122,40,80,80,160,190,130,254,0 
550 REM ******************************* 

560 INK O , O:BOEDER O : INK 1,26:1NK 2,8: MODE 1 
570 READ Tí:IF Tí="F" THEN 620 
580 GOSUB 650 
590 GOTO 570 

600 DATA DEMOSTRACION DE LA RUTINA DE ROTULOS,PARA USARLA CARGA E 

N Tí LA FRASE Y HAZ ,GOSUB A LA RUTINA CENTRA TEXTO 

610 DATA LA RUTINA NO MANEJA, NI NUMEROS NI SIMBOLOS GRAFICOS," 

",PULSA -S- PARA ACABAR,F 

620 IF INKEY(60)< >0 THEN 620 

630 SOUND 1,100,50:DELETE 560-640 

640 REM 

650 REM ** RUTINA CENTRA TEXTO ** 

660 F'RINT TAB (20-LEN <Tí) /2) ;UF'PERí (Tí) :PRINT TAB (20-LEN (Tí)/ 
2) ¡¡LOWERÍ (Tí) iPRINT 
670 RETURN 

680 REM ************************* 
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s, 


















: SOUND I 

> 

- f < 

a#2,1 : 

¡NEXT 

a 




















1 ' 

TO 50 i 

:NEXT b: 

¡NEXT 

a 

















LEN (afO 
" THEN 

1 

PRINT C 

:HR*<7> ; 






































































10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


ANGEL GARCIA DELGADO * 


REM * 

MODE O 

INK 0,0:1NK 1,26:INK 2,7:INK 3,18 
PAPER 
ORIGIN 
FOR a=0 
PLOT 
DRAW 
DRAWR 
NEXT a 

PRINT CHR*(22)+CHR* <1) 


O üBORDER O 
318,210 

TO 2*PI STEP PI/70 

0 , 0,2 

300#COS(a),150*SIN(a) 
O,30#SIN(a) ,3 


Aí="PIRAMIDE" : A=11 
LOCATE A,12:PRINT 


-(0.5*(LEN(Aí))) 
A* ; 


SOUND 


PRINT CHR$(22)+CHR$(O); 

INK 2,7,0:INK 3,0,18 
FOR a=l TO 300:SOUND 1,a,1,15:NEXT 
INK 2,18,7:INK 3,7,18 
FOR a=300 TO 1 STEP -2: 

INK 
FOR 
FOR 
MODE 
GOTO 
PRINT 


a=300 TO 
2,7:INK 3,18 
a=1 TO 500:NEXT a 
a=0 TO 50:PRINT CHR$(7):F0R b 
1 

280 

TAB(20-LEN(a$)/2):FOR a=l TO 
b*=MID$(a*,a,l):PRINT b$;:IF b$<> 
NEXT a 

PRINT :PRINT:FOR a=l TO 200:NEXT a 
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280 

REM *** 

INICIO 

DEL PROGRAMA ) 

K** 






290 

300 

LOS 

a$="<< PIRAMIDE >>" :GOSUB 240:PRINT 

A$="ALCANZA LA CIMA DE LA PIRAMIDE" : GOSUB 240:A*=" 
TESOROS, PERO SIN":GOSUB 240 : A$= " CHOCAR CONTRA EL 

RECOGIENDO 
FANTASMA":G 


OSUE 
310 
A. (■ 
OSUE 
320 

í 240 

PRI NT : A*= " CONTROLES : " : GOSUB 240 : A$= " Q . ARR IBA": GOSUB 240 : A$= " 
)BAJO" :GOSUB 240:A*="0. IZQUIERDA" : GOSUB 240:A$="P. DERECHA" :G 

3 240 

PRTN1T ¡at- "Pl II QA _C_ PAC'A CMDC7AD 11 ■ QDCI IEj OA/ - ! 


330 

TF T NkF Y ÍAO TUFNI 

330 

— i- ni a ■ uv 






340 

GOSUB 970 








350 

PAPER 0 

• zBORDER 

0 : INK 

0,0 : MODf 

E 1 






360 

INK 1 ,26 : INK 2 

,15:INK 

3,18 







370 

WINDOW 

#1,2,39 

,1,1 :WII 

NDOW 1 

40,4,25 






380 

P=0:V=3 

1: GOSUB 

730 








390 

400 

PEN 2 :G 
x = 19 : y= 

IOSUB 760 
20:XB=X:YB=Y 








410 

420 

430 

¿LAñ 

450 

XM=7 : Yl» 
IF NOT 

IF NOT 
tp Ninr 

IF NOT 
LOCATE 
IF C=97 
IF C=98 
IF C=10 

1=20 :bx = xm :by = ym 

INKEY(67) THEN X=X-1 

INKEY (69) THEN X=X+1 

TWt-TVíQ/n TUQI V —y_i 

TMkTY TUJTKi V —v_i_i 







460 

470 

480 

490 

Y,X:CAL 
' THEN X 
THEN 1 
U OR C= 

( r » • 11— 1 M 1 I ^ 1 

L 30000 :C=PEEK 
= XB : Y = YB 

070 

100 THEN F*=P+7í 

(29999) 

5:GOSUB 

730 





500 

3 

PEN 1 :LOCATE YB , XB : F'R 

I NT " "; 

: LOCATE 

Y ,X : F'R I 

NT CHRf- 

(248+RND*3) 


510 

xb=x : yb 

-y 









520 

IF x m < x 

THEN x 

m=xm+l 








530 

540 

550 

cr jL 

IF xm;x 
LOCATE 
IF C<>3 

I F y m < y 

1HEN xm=xm-l 








ym,xm:CALL 3001 

DO :C=PEEK(29999) 





\jl i rttiM 

A II —O A 








570 

1 HhN y 

THEN y 
YM,XM:C 
■7 THEN 
THEN B 

m— ym+U . ' 

cr 







580 

LOCATE 
IF 024 
IF C=98 

ALL 300i 
1070 

Y = YM 

“iñ -r—c«irirL.-- nooooi 





590 

600 








610 

IF C<>32 THEN 

YM=B Y 








620 

PEN 3:LOCATE BY ,BX:PRINT" 

rLOCATE 

YM,XM : F 

■R I NT "b " 

■ 



630 

BX=XM:BY=YM 









640 

‘IF x=5 

THEN 660 








650 

GOTO 42 

0 









660 

ENT 1,1 

0,-2,1 : 

FOR A=1 

TO 100 

: SOUND 1 

L , A , 10,1 

5,0,1 : NEXT 



670 

680 

690 

700 

nuj.it i:lulaie 
A$="ALCANZASTE 
PRINT:A$="BONO 
P=P+5000:SOUND 
GOTO 1070 

GOTO 720 

1,5:A*="L0 CONSEGUISTE !!!": GOSUB 240 

LA CIMA DE LA PIRAMIDE" : GOSUB 240 



Lid sjw* 

2,50,5 

í-l 1- UIM 1 Uí 

,15,0,0 

3 :uusut 

í 2 A o 





710 

,üi í UUOUD /OV 





720 









730 

LOCATE 

#1.14.1 

: PR I NT # 

1 . " F'l lUTOR ; " -P 






740 

IF V<1 

THEN 1070 








750 

RETURN 










760 

PRINT" 



aa 



H . 




770 

PRINT" 

a 


aaaa 



>1 ■ 




780 

PRINT" 

aaa 


aa aa 


II ■ 

> 




790 

PRINT" 

a aaa 


83 c 

ja 

a 

II . 
n 











































i 
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pnn pptmt 

II _ 










ow r rv i in i 

310 PRINT 
820 PRINT 

<* dddd 

ii -a _ 

aa 

aa 

£ 

aa " ; 





" 

aaaaaa 

aaaa 

CÑ 

aaa " ; 





830 PRINT 

auaaa aa trad 


aaa " ; 





840 PRINT 

II 

aaaa aa 

aoiaaoaanac 

d ^ 


aaa |¡ 





850 PRINT 

11 

aaa aaaaaaaaaaaaa aaaaa a 

ddd ^ 

aa " ; 

" • 





860 PRINT 

"aaaaaaaa aa 


c 

aa a 





870 PRINT 

ll 

aaaa 

- — 

aaaaaaaaaaaaaaaaaa aaaaaaa" : 





880 PRINT 

" a a 

aa e 



aa 

i 





890 PRINT 

II 

aaaaaaaaaaaa <= 


a " 5 





900 PRINT 
910 PRINT 
920 PRINT 
930 PRINT 
940 PRINT 

Q5í"> PRTWT 

a a aa 



eaa 

a" ; 





aaaaa aaaaaaaaaaaaaaaaaa aaaaa a "; 

ii ■ 





aa 

•i _ _ _ _ 

□ 




aa a" ; 





aaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaa " : 

ii ,» » 





dea tí 

n _____ _ 





□ aa " ; 





' ~ v «««aonaaaaaCTaaactdddddddddddddddddddaaaaa ¡¡ 

960 RETLJRN 





970 DATA 

205,96, 
RE 970 

187,50 .4 

17,117,2 

>01 







980 RESTO 

7 ” ^ í 









990 FOR a 

=30000 T0 3000¿ 

a:READ t 

:P0KE a 

,b :NEXT 

a 





1000 SYMBOL AFTER 97 









1010 SYMBOL 97,1 

24,190,: 

254,190, 

214,174 

,84,0 






1020 SYMBOL 98,i: 

24,146,218,254, 

254,170 

,170,0 






1030 SYMBOL 99,8 
1040 SYMBOL 100,( 
1050 PYMROL 101 ,< 

1060 R E T U R N 

1070 REM *#* GAME 
1080 FOR A=1 TO 2 
NEXT RüNFXT A 

,161 ,4,160,9,64,17,68 







d , 20 , 20 
D , 0 , 62 , i 

73 , 1 ¿_7 , 

73,8,28 







16,46,20,8,62 







nuiro *** 








!0:F0R B 

= 100 TCJ 

O A A CTt'D A-CnilKin -i o 

1,15,0, 

0,31 : 



X-. 1 




1090 INK ¡ 

>.0:1NK 

1,26:INK 2,15, 

0 : PAPER 

() í Rl iRI iP R i) ü 1— In 

1 1:MODE 

0 



1100 PEN 2: LOCATE 

6.7:PRINT"GAM 

E 0VER" 





1110 PEN 1 : LOCATE 

4,12 SPRINT"PUNTOS: 

JSING "i 


P 




1120 PEN 3:INK 3, 

15:LOCATE 5,17 

: PRINT ' 

'OTRA? 

(S/N)" 





1130 FOR A=1 TO 5 

¡0 :A$= INKEY $ : NEXT A 







1140 PEN J 

=0 THEN 









11: 

DO IF INKEY(60) 

RUN 22 

0 







1 1 6U Ih INK.hT (46 ) 

-i -4 —imnx/n -4 j cr.-. 

=0 THEN 

CALL 0 








11 LJU 1 U 

1 1 JU 










90 

r\c:ri * »- 

MODE 0 
INK 0 ,< 
PAPER ( 

-|INOC.l_ ÜHHL 1 M U El l_ LJ H U U * 








jí— 

30 

40 

5: INK 1 
): BORDEE 

26:INK 

0 

2,7:1NK 

3,18 













50 

ORIGIN 

318,21C 










60 

FOR a=< 

) T0 2*F 

I STEP 

PI/70 








70 

PLOT 0 

,0,2 










80 

DRAW 3< 

>0#C0S<a 

) , 150*SIN(a) 








90 

DRAWR ( 

[) ,30#SIN (a) ,3 









101 

I) NEXT a 










11( 

J PRINT 

CHR*(22 

!)+CHR*( 

i) ; 








12( 
4 O 

.) KtNAL 1 I " : 

A=11-(0 

.5*(LEN 

< A$ ))) 







13< 

1 A.I 

J LULH 1 c 

ddtkit ruó* /r»n\ . nun.*- / 









15< 

16( 

17( 

rnii'i i 

) INK 2 
:> FOR a= 
j INK 2 

Lnn-p \ ^L_,nr\\ 

,7,0:INK 3,0,18 
=1 T0 300:S0UND 
1 R . 7 ■ T NK r? _ 7.1 

O) ; 








1 , a , 1 , 

n 

15:NEXT 







a 






18( 

I) FOR a= 

=300 T0 

1 STEP 

—2:S0UND l.a.l 

:S0UND 

2,a*2,1 

NEXT a 








7 - 7 

- f WT*. J * 
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190 INK 2,7:1NK 3,18 
200 FOR a=l TQ 500:NEXT a 

210 FOR a=0 TO 50:PRINT CHR$(7):F0R b = l TO 50:NEXT b :NEXT a 
220 MODE 1 
230 GOTO 280 


240 F'RINT TAB (20-LEN (a$)/2) :FOR a=l TO LEN(aí) 

250 b*=MID*<a*,a,l)sPRINT b*;:IF bí<>" " THEN PRINT CHR$<7); 

280 NEXT a 

270 PRINT:PRINT:FOR a=l TO 200:NEXT a :RETURN 
280 REM *** INICIO DEL PROGRAMA *** 

290 a*="« PENALTI »•' :GOSUB 240:PRINT 

300 A$="PROCURA COLAR EL BALON":GOSUB 240:A$="EN LA PORTERIA, SIN 
":GOSUB 240: A$="QUE EL PORTERO LA RECOJA"«GOSUB 240 
310 PRINT:Af="PARA LANZAR EL BALON":GOSUB 240:AS="PULSA LA TECLA 
SPACE":GOSUB 240 

320 PRINT:aí="PULSA -S- PARA EMPEZAR":GOSUB 240 
330 IF INKEY(60)<>0 THEN 330 

340 P=0 : FA=0:1NK 0,18:1NK 1 ,0:1NK 2,26:1NK 3,8 

350 PAPER OsBORDER 18 

360 MODE 1 : GOSUB 730 

370 WINDOW #1,1,40,24,24:GOSUB 700 

380 WINDOW #2,1,40,21,21 

390 A$="PULSA SPACE PARA DISPARAR":GOSUB 680 
400 x=17: y =20 

410 y P=16+INT(RND*9):D=1:DP=-1 

420 LOCATE YP,5:PRINT"a":LOCATE YP,6 :PRINT"b" 

430 LOCATE Y,X:PRINT" " : 

440 Y=Y+D : IF Y>35 THEN D=-l 

450 IF Y<5 THEN D=1 

460 LOCATE Y,X:PRINT"c":CALL &BD19 

470 IF NOT INKEY(47) THEN 490 

480 GOTO 430 

490 FOR A=100-TO 200 STEP 6:S0UND 1,A,1:NEXT 
500 LOCATE YP,5:PRINT" ":LOCATE YP,6:PRINT" " 

510 YP=YP+DP:IF YP>24 THEN DP=-1 
520 IF YP<16 THEN DP=1 


530 

540 


LOCATE 

LOCATE 


550 FOCATE 


YF‘ ,5 : PRINT "a" :LOCATE YP ,6:PRINT"b“ 
Y,X:PRINT" ":X=X-1:IF X<4 THEN 580 


Y «-'C'TMT ruü ±- l 


a 02 -x, 


560 IF, X=5 OR X=6 THEN IF Y = YF' THEN 630 
570 GOTO 500 


580 GOSUB 730:IF Y<15 OR Y>26 THEN 650 
590 ENT 1,20,-3,1:SOUND 1,100,15,15,0,1 
600 P=P+15:GOSUB 700 


610 A*="GOOOOL." :FOR N=1 TO 4:G0SUB 680;NEXT 

620 GOTO 360 


630 GOSUB 730 :SOUND 2,100,5,15,0,0,31:A#="PARADA DEL PORTERO":GOS 

UB 680 

640 GOTO 660 

650 SOUND 4,300:A*="LA PELOTA HA SALIDO FUERA":GOSUB 680 

660. FOR A=1 TO 100:NEXT:FA=FA+1:GOSUB 700 

670 FOR A=1 TO 600:NEXT:GOTO 360 

680 CLS #2:PRINT#2,TAB<20-L¿fcl <A$>/2); 

690 FOR A=1 TO LEN (Aí) :PRINT #2,MID#<A$ ,A,1) ;CHR$(7) ; :NEXT:RETUR 


700 LOCATE #1 ,5,1:PRINT#1 , "PUNTOS:";P:LOCATE #1,26,1 :PRINT#1 , "FAL 
LOS:";FA 
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710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

EXT 

880 

890 

900 

910 

920 

930 

940 

950 

960 


IF FA >4 THEN 860 
RETURN 

PLOT O , 250,2:DRAW 100,300:DRAW 530,300:DRAW 630,250 

PLOT 150,300:DRAW O,100:DRAW 630,100:DRAW 480,300 

PLOT 180,300:DRAW 80,150:DRAW 550,150:DRAW 450,300 

PLOT 214,302,3:DRAW 214,380:DRAW 630-214,380:DRAW 630-214,302 

PLOT 210,302:DRAW 210,384:DRAW 630-210,384:DRAW 630-210,302 

RETURN 

SYMBOL AFTER 97 

S Y MBOL 97,60,126,90,126,60,24,126,255 
SYMBOL 98,189,189,189,60,36,36,102,231 
SYMBOL 99,60,126,255,255,255,255,126,60 
SYMBOL 100,O,60,126.126,126,126,60.O 
SYMBOL 101,0,0,24,60,60,24,0,0 
RETURN 

REM *** GAME OVER *** 

FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1,B,1,15,0,0,31:N 
B:NEXT A 

INK O , O:INK 1,26 :1NK 2,15,0:PAPER O:BORDER O:PEN 1 : MODE O 
PEN 2 .-LOCATE 6,7 :F'RINT"GAME OVER" 

PEN 1 .-LOCATE 4,12 :PRINT M PUNTOS : " ;USING "######■' -p 
PEN 3:INK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N)" 

FOR A=1 TO 50:A$=INKEY$:NEXT A 
PEN 1 

IF INKEY(60)=0 THEN RUN 220 
IF INKEY<46>=0 THEN CALL O 
GOTO 940 



^TTT"m r-rr-, r t , 

Ex:':':-: E-x-xd Ex-x-x» E-x-xd E-x-xd E-xxd E-xxd E-x-xd E-x-xd E-x-:- 

rTTTTVl PTTTTn PTTTTTT 1 V V T i { \ \ ^t t m 11 |TTTTTT 1 ITT 1 I I (1 ITTTrffl fc V T V? V i P 

E-x-xd E-x-xd E-x-xd Ex:-;-:! E-x-xd E-x-xd Ex'xd E-x-xd Ex-x-m [ 

JfsN*l*X4 k*ís*Is44 PvavH tvivi'íj pvIvS Cvlwyj C-X-Xvj FavaI Rva 

i k k i i i m | a i a i a d L a a a i a ■ [ a A a ; i ■ I i i a a i m t a a i a a M l a a a a a d l i a a a i ■ L a a a a 


PARACA 


10 REM ******** PARACA ******** 

20 REM * ANGEL GARCIA DELGADO * 

30 REM ******** G.T.S. ******** 

40 REM 
50 MODE O 

60 INK O ,0:1NK 1,26:1NK 2,7 :1NK 3,18 

70 PAPER O:BORDER O 

80 ORIGIN 318,210 

90 FOR a=0 TO 2*PI STEP PI/70 

100 PLOT 0,0,2 

110 DRAW 300*COS(a) ,150*SIN(a) 

120 DRAWR O,30*SIN(a),3 
130 NEXT a 

140 PRINT CHR$(22)+CHR*(1) ; 

150 LOCATE 8,12 
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ViJQWli V í¡ v fJ fJ O v fJ v O ?J fjfj fJ tJ ti V 


■ 1 TO LEN(a$) 

THEN F'RINT CHR$<7) 


160 F'RINT "PARACA" 

170 F'RINT CHR'i (22)+CHRÍ (O) ; 

180 INK 2,7,0:INK 3,0,18 

190 FOR a=l TO 300:S0UND 1,a,1,15:NEXT a 
200 INK 2,18,7:INK 3,7,18 

210 FOR a=300 TO 1 STEP -2:S0UND l,a,l:SOUND 2,a#2,l:NEXT a 
220 INK 2,7:INK 3,18 
230 FOR a=l TO 500:NEXT a 

240 FOR a=0 TO 50:F‘RINT CHRÍ(7):F0R b = l TO 50:NEXT b :NEXT a 
250 MODE 1 
260 GOTO 310 

270 F'RINT TAB (20-LEN (aí)/2) :FOR a= 

280 bÍ=MIDÍ(aÍ,a ,1 ) :F'RINT bÍ;:IF bi<>" 

290 NEXT a 

300 F'RINT: F'RINT: FOR a=l TO 200: NEXT a : RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 Ai="<< PARACA >>" :GOSUB 270 

330 F'RINT :AÍ=" RESCATA A LOS PARACAIDISTAS" :GOSUB 270:AÍ="Y DESTRU 
YE LAS BOMBAS" :GOSUB 270:A$="QUE LANZA EL AVION" :GOSUB 270:F'RINT: 
A$="CONTROLES:":GOSUB 270 :A$="CURSOR >. DERECHA":GOSUB 270:A$="CU 
RSOR <. IZQUIERDA" :GOSUB 270:F'RINT :AÍ="PULSA -S- PARA EMF'EZA 
340 GOSUB 270 

350 IF IIMKEY <60)00 THEN 350 
360 GOSUB 700 

370 INK 0,26:PAPER O:BORDER 26:MODE O 

380 INK 1,1: INK 2,10 

390 INK 3,2:INK 4,6:INK 5,15 

400 WINDOW #1 ,1 ,20,1 ,3:WIND0W 1 ,20 ,4,20 :WINDOW #2,1 ,20,21 ,25 :F'AF'E 
R #2,2:CLS #2 
410 F'=0:FA=0: GOSUB 670 
420 Y A=1:PA=0:B0=0:Y = 10 
430 D=0 
440 


450 


IF NOT INKEY(8) THEN Y=Y-1:IF 
IF NOT INKEY(1) THEN Y=Y+1:IF 


A THEN Y=1 
■17 THEN Y = 1 7 


460 F'EN 3-.LOCATE Y,17:F'RINT" be "; 

470 YA=YA+1:IF YA>18 THEN LOCATE 19,1 
480 F'EN 1 :LOCATE YA , 1 :F'RINT" hi" 

490 IF D=0 AND NOT INKEY(47) THEN D=1 
, 15 , 0 , 0,31 

500 IF D=1 THEN LOCATE YD,XD:F’RINT" " 
510 IF D=1 THEN LOCATE YD , XD :PR'INT"d " 


¡F'RINT" " ; : YA= 1 
:X D=16:YD=Y+2 :SOUND 1,100,10 
:XD=XD-1:IF XD<2 THEN D=0 


IF F’A=0 THEN 
IF PA-0 f FIEN 


IF YA>3 
580 


AND Y A < 17 THEN IF RND>0.95 THEN PA=1:XF'= 


=F'+5 : GOSUB 670 : F'A=0 : G 


520 
530 

540 LOCATE YP , XF': F'RINT" ":XP=XF'+1 
550 IF XF-17 AND YF-Y+1 THEN SOUND 1,10,10:P : 

OTO 580 

560 IF XP> 17 THEN F'A=0 :FA=FA+1 :SOUND 4 ,300,15,15,0,0,31 :GOSUB 670 
:GOTO 580 

570 F'EN 4:LOCATE YP , XF' :PR I NT "e " 

580 IF B0=0 THEN IF YA>3 AND YA<17 THEN IF RND>0.95 THEN B0-1:XB- 
2:YB=YA+1 :SOUND 2,100,5 
590 *IF B0=0 THEN 650 


600 LOCATE 
610 IF XB=1 
B 670:BQ=0¡ 
620 IF XB>1 

YB , XB : F'RINT" ":XB=XB+1 

7 AND YB=Y+2 THEN SOUND 1,10C 
¡GOTO 650 

.7 THEN B0=0 :FA=FA+1 :SOUND 4,: 

i,10,15, 

300,15,1 

, 0,0,31: 

15 ,0,0,3 

F-F'+IO : 

¡1 :GOSUB 

GOSU 

670 

:G0T0 650 
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630 PEN 5 :LOCATE YB ,XB :PRINT"-f " 

•640 IF D= 1 AND YB=YD THEN IF XB=XD GR XB=XD+1 THEN LOCATE YB,XB:P 
RINT"g" ; :LÜCATE XD , YD :PRINT" ";:SOUND 1,75,15,15,0,0 ,31:P=P+10sGG 
SUB 670:D=0:B0=0:LOCATE YB,XB:F'RINT" 

650 REM 
660 GOTO 440 

670 LOCATE # 1 ,2,2 :F'RINT# 1 , "PT : " ;P :LOCATE #1 ,13,2:PRIN ¡*1,"FA:";FA 

680 IF FA>4 THEN 810 

690 RETURN 

700 SYMBOL AFTER 97 

710 SYMBOL 97,255,193,225,241,249,253,255,255 
720 SYMBOL 98,0,0,0,0,128,193,227,255 
730 SYMBOL 99,24,36,44,44,255,255,255,255 
740 SYMBOL 100,0,24,24,24,24,24,24,0 
750 SYMBOL 101,60,70,191,193,90,60,24,36 
760 SYMBOL 102,40,56,16,56,56,56,56,16 
770 SYMBOL 103,68,17,0,170,0,149,0,36 
780 SYMBOL 104,0,128,192,225,243,255,63,0 
790 SYMBOL 105,0,0,192,34,250,255,250,2 
800 RETURN 

810 REM * * * GAME OVER *** 

820 FQR A=1 TO 20:F0R B=100 TO 200 STEP A:SOUND 1,B,1 ,15,0 ,0,31:N 
EXT B:NEXT A 

830 INK 0,0:1NK 1,26:1NK 2,15,0:PAPER O:BORDER O : PEN 1 : MODE O 
840 PEN 2:LOCATE 6,7:PRíNT"GAME OVER" 

850 PEN 1 :LOCATE 4,12 :PRINT"PUNTOS : " ;USING "######•' ; p 
860 PEN 3:INK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N)" 

870 FOR A=1 TO 50:A$=INKEY$:NEXT A 
880 PEN 1 

890 IF INKEY(60)=0 THEN RUN 250 
900 IF INKEY(46)=0 THEN CALL O 
910 GOTO 890 



PALABRAS 


10 REM * ANGEL GARCIA DELGADO * 

20 MODE O 

30 INK O,O:INK 1,26:INK 2,7:INK 3,18 

40 PAPER O:BORDER O 

50 ORIGIN 318,210 

60 FOR a=0 TO 2*PI STEP PI/70 

7A pi pr 

80 DRAW 300*COS (a) , 1.50*SIN (a) 

90 DRAWR 0,30*SIN(a) ,3 
100 NEXT a 
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110 PRINT CHRi(22)+CHRÍ(i) ; 

120 Aí="PALABRAS":A=11-<0.5*(LEN(Ai))) 

130 LOCATE A, 12 SPRINT Ai; 

140 PRINT CHRi(22)+CHRi(0): 

150 INK 2,7,O:INK 3,0,18 

160 FOR a = 3 TO 300:S01JND 1 ,a , 1 ,15 sNEXT a 
170 INK 2,18,7:INK 3,7,18 

180 FOR a=30O TO 1 STEP -2sS0UND 1,a,1sSOUND 2,a*2,1sNEXT a 

190 INK 2,7:INK 3,18 

200 FOR a=1 TO 500sNEXT a 

210 FOR a=0 TO SOsPRINT CHRÍ(7):F0R b=l TO SOsNEXT bsNEXT a 
220 MODE 3 
230 GOTO 280 

240 PRINT TAB(20-LEN (aí)/2) :FOR a=l TO LEN(aí) 

250 bí=MIDÍ(ai,a,1)sPRINT bÍ;:IF bi<>" " THEN PRINT CHRÍ(7); 

260 NEXT a 

270 PRINTSPRINTsFOR a=l TO 200sNEXT asRETURN 
280 REM *** INICIO DEL PROGRAMA *** 

290 ai="« PALABRAS >>" sGOSUB 240 SPRINT 

300 Ai="REUNE LAS LETRAS DE LA PANTALLA"sGOSUB 240sAÍ="EN EL ORDE 
N CORRECTO, PARA FORMAR"sGOSUB 240sAÍ="LA PALABRA QUE SE TE MUEST 
RA"sGOSUB 240 

310 PRINTsAÍ="CONTROLESs"sGOSUB 240sAÍ="Q. ARRIBA"sGOSUB 240sAÍ=" 

A. ABAJO"sGOSUB 240:AÍ="0. IZQUIERDA"sGOSUB 240sAÍ="P. DERECHA"sG 
OSUB 240 

320 PRINTsaÍ=“PULSA -S- PARA EMPEZAR"sGOSUB 240 
330 IF INKEY(60)< >0 THEN 330 
340 GOSUB 600 

350 INK O,OsPAPER OsBORDER OsMODE 1 
360 INK 3. ,26; INK 2,8 

370 RESTORE 590:F0R A=1 TO 1+INT(RND*14) sREAD TísNEXT 

380 PEN 2 sLOCATE l,8sAÍ="LA PALABRA ESs"sPEN 1sGOSUB 240;AÍ=TÍ;G0 

SUB 240 

390 FOR A=1 TO 2000sNEXT 

400 PEN 2 sFOR A=1 TO 25:PRINT STRINGí(40,"a") ;sNEXT 

410 WINDOW #1 ,2,39,2,4;WIND0W #2,3,38,3,3sWINDOW 2,39,6,24;CLS #1 

sCLSsCLS #2 

420 PEN lsFOR A=1 TO LEN (Ti) 

430 Y=1+INT(RND*38):X=1+INT(RND*18)sIF X=10 AND Y=19 THEN 430 
440 LOCATE Y,X:CALL 30000;IF PEEK(29999)=32 THEN PRINT MIDÍ(TÍ,A, 

1); ELSE 430 
450 NEXT 

460 X=10:Y=10:XB=X:YB=Y 

470 IF NOT INKEY(67) THEN X=X-1;IF X<1 THEN X=1 

480 IF NOT INKEY(69) THEN X=X+1:IF X>19 THEN X=19 

490 IF NOT INKEY(34) THEN Y=Y-1:IF Y<1 THEN Y=1 

500 IF NOT INKEY(27) THEN Y=Y+1:IF Y>38 THEN Y=38 

510 LOCATE Y , X;CALL 30000:C=PEEK(29999) 

520 IF 064 AND C<91 THEN Ri=Ri+CHRí(C) :P=P+5:PRINT#2,RÍsFOR A=10 
O TO 200 STEP 4 sSOUND 1 ,A , 1sNEXT:IF LEN(Rí)=LEN(Tí) THEN 560 
530 IF C=99 THEN IF XOXB OR Y<>YB THEN GOTO 710 
540 LOCATE YB,XB sPRINT "c"; sLOCATE Y ,X :PRINT"b";:yb=y :XB=X 
550 GOTO 470 

560 CLSsLOCATE 1,5:IF TÍ=RÍ THEN PRINT " CORRECTO !!!"sPRINTsPRIN 
T" BONO DE 5000 PUNTOS"sFOR A=1 TO 400sSOUND 1,A,1,15sNEXT:P=P+5000 

570 IF TíORÍ THEN PRINT" INCORRECTO_"sPRINTsPRINT" LA PALABRA 

ES; " ;Ti 
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580 GOTO 710 

AMS TR AEi ,ESTERNOCLEIDOMASTOIDEO , CORAZON , UNI DAD , PORTA VI ONE 
S■ ,PENICILINA,CUCHARADA,CARACOL,SALAMANDRA,HIBRIDACION-ORBITAL CEL 
ULA , IMF'RESGRA,M1CROORDENADOR ’ 

600 DAT A 205-, 96,18?, 50,4 7 r f I 7 ,20 J 
RESTORE 600 

FOR a=30000 TO 30006sREAD bsPOKE a,b:NEXT a 
SYMBOL AFTER 97 

97,0,239,239,239,0,254,254,254 
98,60,126,153,189,255,195,102,60 
99,O,O,36,O,O,36,0,O 


610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

EXT 

730 

740 

750 

760 

770 

780 

790 

800 

810 


SYMBOL 
SYMBOL 
SYMBOL 
RETURN 

SYMBOL 97,O,239,239,239,O,254,254,254 
SYMBOL 98,60,126,153,189,255,195,102,60 
SYMBOL 99,0,0,36,O,0,36,O,O 
REM *** GAME OVER *** 

FOR A=1 TO 20:FOR B=100 TO 200 STEP A-SOUND 
B:NEXT A 

INK O ,0:1 Nk 1 ,26:1 NK 2,15,0: PAPER O : BORDER O : F'EN 1 
2:LOCATE 6,7 : F'R INT"GAME OVER" 

1: LOCATE 4,12:PRINT"PUNTOS:";USING "######";p 
3:INK 3,15 :LOCATE 5,17 :PRTNT "OTRA? (S/N)" ' 

A-1 TO 50 :A$=INKEYT:NEXT A 
1 

INKEY(60)=0 THEN RUN 220 
O THEIM CALL O 


F'EN 
F'EN 
F'EN 
FOR¬ 
REN 
1F 

1F INKEY(46) 
GOTO 790 


1,B,1,15,0,0,31:N 
MODE O 



F&j&i fyM'x'i FTIx'j ttííí 


PENALTI 


10 REM *.ANGEL GARCIA DELGADO * 

2O MODE O 

30 INK O,0:1NK 1,26:1NK 2,7:INK 3,18 
40 PAPER O:BORDER O 
50 ORIGIN 318,210 
60 FOR a=0 TO 2*PI STEP F'I/70 
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70 PLOT 0,0,2 

80 DRAW 300 *COS(a) ,150*81Nía) 

90 DRAWR 0,30*SIN(a) ,3 
100 NEXT a 

110 PRINT CHRi(22)+CHRÍ (1) ; 

120 A$="PENALTI":A=ll-(0.5*(LEN(AÍ))) 

130 LOCATE A, 12:PRINT Ai; 

140 PRINT CHRi(22)+CHRÍ(O) ; 

150 INK 2,7,0:INK 3,0,18 

160 FÜR a-1 TO 30Ó:S0UND 1,a,1,15:NEXT a 
170 INK 2,18,7:INK 3,7,18 

180 FOR a=300 TO 1 STEP -2:S0UND l,a,l:SOUND 2,a*2,l:NEXT a 

190 l'NK 2,7: INK 3,18 

200 FOR a=1 TO 500:NEXT a 

210 FOR a=0 TO 50:PRINT CHRÍ(7):F0R b=l TO 50:NEXT b :NEXT a 
220 MODE 1 
230 GOTO 280 

240 PRINT TAB(20-LEN(ai)/2):FOR a=l TO LEN(aÍ) 

250 bÍ=MIDÍ(ai ,a , 1) : PRINT bÍ;:IF bi<>" " THEN PRINT CHRí(7); 

260 NEXT a 

270 PRINT: PRINT:FOR a=l TO 200: NEXT a : RETURN 
280 REM *** INICIO DEL PROGRAMA *** 

290 ai="<< PENALTI >>" :GOSUB 240:PRINT 

300 Aí= "PROCURA COLAR EL BALON" :GOSLJB 240:AÍ="EN LA PORTERIA, SIN 
":GQSUB 240:Ai="QUE EL PORTERO LA RECOJA" :GOSUB 240 
310 PRINT¡Ai="PARA LANZAR EL BALON";GOSUB 240:AÍ="PULSA LA TECLA 
SF'ACE" :GÜSUB 240 

320 PRINT :ai="PULSA -S- PARA EMPEZAR":GOSUB 240 
330 IF INKEY(60)< >0 THEN 330 

340 P=0 : FA=0 :1NK 0,18:1 NK 1 ,0:1 IMK 2,26:1 NK 3 ,8 

350 PAPER O: BORDER 18 

360 MODE 1 :GOSUB 730 

370 WINDOW #1,1 ,40,24 ,24 : GOSUB 700 

380 WINDOW #2,1,40,21,21 

390 Aí="PULSA SF'ACE PARA DISPARAR" :GOSUB 680 
400 x=17:y=20 

410 y P=16+INT(RND*9):D=1:DP=-1 

420 LOCATE YP ,5 :PRINT"a" :LOCATE Yp,6 :PRINT"b" 

430 LOCATE Y,X:PRINT" ": 

440 Y = Y + D : IF Y>35 THEN D=-l 
450 IF Y<5 THEN D=1 

460 LOCATE Y , X : F'R I NT " c " : CAL.L &BD 1 9 
470 IF NOT INKEY(47) THEN 490 

480 GOTO 430 

490 FOR A=100 TO 200 STEP 6:S0UND 1,A,1:NEXT 
500 LOCATE YF',5:PRINT" " :LOCATE YF',6:PRINT" " 

510 YP=YP+DP:IF YP>24 THEN DP=-1 
520 IF YP<16 THEN DP=1 

530 LOCATE YP,5:PRINT"a":LOCATE YP ,6 :PRINT"b" 

540 LOCATE Y,X:PRINT" " :X = X-1:IF X<4 THEN 580 
550 LOCATE Y,X:PRINT CHRi (102-X/7) ; 

560 IF X=5 OR X=6 THEN IF Y=YP THEN 630 
570 GOTO 500 

580 GOSUB 730:IF Y<15 OR Y>26 THEN 650 
590 ENT 1 ,20,-3,1 :SOUND 1 ,100,15,15,0,1 
600 P=P+15:GOSUB 700 

610 A$="GOOOOL .." :F'OR N=1 TO 4:GOSUB 680:NEXT 
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620 GOTO 360 

md°¿o 0SÜB 730:S0UND 2 , 100,5,15,0,0,31:A$="PARADA DEL PORTERO":GOS 

UJd 6üU 

<£> 4 U GOTO (£>(£) O 

650 SOUND 4,300: AÍ-"LA PELOTA HA SALIDO FUERA":GOSUB 680 

660 FOR A=1 TO IOOíNEXT:FA=FA+1:GOSUB 700 

670 FOR A=1 TÜ 600 ¡¡NEXT :GOTO 360 

680 CLS #2:PRINT#2,TAB(20-LEN <A$)/2) ,■ 

BPO FOR A-1 TO LEN (A*) :PRINT #2,MIDí(Ai,A,1) ;CHR*(7) ;:NEXTsRETUR 

/nc j; 03 * 2 ' 1 E v-‘, 1 :F’RIN1 #1 , "PUNTOS ;P :LOCATE #1 ,26,1 :PRINT#1 , "FAL 
L O S “ 1 ¡| h A 

710 IF FA >4 THEN 860 
720 RETIJRIM 

730 F’LOT 0,250,2 :DRAW 100,300 :DRAW 530,300:DRAW 630,250 
/40 PL.Or 15o ,300 :DRAW 0,100:DRAW 630,100:DRAW 480 300 
750 r 180,300: DRAW 80,150: DRAW 550,150: DRAW 450 300 

pi"nT ’TT ’ 3 :DRAW 214,380 -“DRAW 630-214,380: DRAW 630-214,302 

11 " 0,302 !LIRAW 210 »3Q4:DRAW 630-210,384 :DRAW 630-210,302 

/80 RETURN ’ " 

790 SYMBOL AFTER 97 

800 SYMBOL 97,60,126,90,126,60,24,126 25H 
810 SYMBOL 98,189,189,189,60,36,36,10^ 

820 SYMBOL 99,60,126,2 


•y rr i=; - ,, 

-• -» , jL-J- 


■_.l . ¿.“ij 


830 SYMBOL 100,0,60,126,126,126,126,60,0 
840 S YMBOL 101 ,0,0,24,60,60,24,0,0 


126,60 


860 REM *** GAME 
870 FOR A=1 TO 2< 
EXT B:NEXT A 

880 INK 0 ,0:1NK 

OVER %%% 

5: FOR B=100 TO 

L,26:INK 2,15,0 

200 STEP A:SOUND 1,B,1 

: PAPER 0 : BORDER 0:PFI\l 

, 1 — 1 , o, o 

1:MQDE 

, 31 s N 

(j 

890 PEN 2 
900 PEN 1 
910 PEN 3 
920 FOR A 
930 PEN 1 
940 IF INI 
950 IF INI 
960 GOTO 1 

:LOCATE 6,7sPRINT"GAME OVER" 

:LOCA TE 4,12:PRINT"PUNTOS:";USING "######" ;F 
: 1 NK 3,15: LOCATE 5,17 : PRI NT " OTRA'"' (S / N) " 

=1 TO 50:A$=INKEYí:NEXT A 



KEY(60)= 
<EY(46)= 
940 

=0 THEN RUN 220 
=0 THEN CALL. 0 








c= 


B 

a 
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CURSO DE 


BASIC+ 


' - V. •• -V'« 


Microordenador 
ZX SPECTRUM 


Microordenador 

COMMODORE 


Microordenadores 
AMSTRAD, MSX, PC 


Para 


ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de altp nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un (fiatogo permanente 
con d ordenador. 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 

(BOLETIN OFICIAL DEL ESTADO 3-6-831 
Aragón, 472 (Dpto. 08013 Barcelona 

Tel(93) 245 33 06 


deseo recibir a la mayor 
brevedad posible información 
sobre el Curso de:_ 


Nombre y apellidos. 


Domicilio. 


Edad 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica |con experimentos! 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


Profesión 


CEAC. Aragón, 472 

(Dpto. ) 08013 Barcelona 




CEAC 


GRATUITAMENTE 
























